ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
141module pm_quadPack
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
193 type :: wcauchy_type
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function constructWcauchy_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function constructWcauchy_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function constructWcauchy_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function constructWcauchy_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function constructWcauchy_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcauchy_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function constructWsin_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function constructWsin_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function constructWsin_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function constructWsin_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function constructWsin_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: constructWsin_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function constructWcos_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function constructWcos_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function constructWcos_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function constructWcos_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function constructWcos_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: constructWcos_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
606 ! \cond excluded
646 type :: GK15_type
647 end type
648 ! \endcond excluded
649
676 type(GK15_type) , parameter :: GK15 = GK15_type()
677
678 ! \cond excluded
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703
723 real(RKB) , parameter :: weightG7(4) = &
724 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
725 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
726 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
727 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
728
748 real(RKB) , parameter :: nodeK15(8) = &
749 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
750 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
751 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
752 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
753 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
754 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
755 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
756 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
757
777 real(RKB) , parameter :: weightK15(8) = &
778 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
779 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
780 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
781 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
782 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
783 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
784 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
785 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
786 ! \endcond excluded
787
788!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789
790 ! \cond excluded
830 type :: GK21_type
831 end type
832 ! \endcond excluded
833
861 type(GK21_type) , parameter :: GK21 = GK21_type()
862
863 ! \cond excluded
883 real(RKB) , parameter :: nodeG10(5) = &
884 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
885 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
886 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
887 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
888 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
889
909 real(RKB) , parameter :: weightG10(5) = &
910 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
911 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
912 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
913 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
914 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
915
935 real(RKB) , parameter :: nodeK21(11) = &
936 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
937 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
938 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
939 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
940 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
941 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
942 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
943 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
944 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
945 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
946 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
947
967 real(RKB) , parameter :: weightK21(11) = &
968 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
969 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
970 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
971 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
972 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
973 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
974 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
975 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
976 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
977 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
978 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
979
980!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
981
982 ! \cond excluded
1022 type :: GK31_type
1023 end type
1024 ! \endcond excluded
1025
1053 type(GK31_type) , parameter :: GK31 = GK31_type()
1054
1074 real(RKB) , parameter :: nodeG15(8) = &
1075 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1076 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1077 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1078 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1079 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1080 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1081 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1082 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1083
1103 real(RKB) , parameter :: weightG15(8) = &
1104 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1105 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1106 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1107 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1108 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1109 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1110 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1111 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1112
1132 real(RKB) , parameter :: nodeK31(16) = &
1133 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1134 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1135 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1136 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1137 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1138 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1139 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1140 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1141 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1142 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1143 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1144 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1145 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1146 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1147 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1148 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1149
1169 real(RKB) , parameter :: weightK31(16) = &
1170 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1171 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1172 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1173 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1174 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1175 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1176 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1177 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1178 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1179 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1180 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1181 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1182 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1183 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1184 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1185 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1186 ! \endcond excluded
1187
1188!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1189
1190 ! \cond excluded
1230 type :: GK41_type
1231 end type
1232 ! \endcond excluded
1233
1261 type(GK41_type) , parameter :: GK41 = GK41_type()
1262
1263 ! \cond excluded
1283 real(RKB) , parameter :: nodeG20(10) = &
1284 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1285 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1286 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1287 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1288 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1289 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1290 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1291 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1292 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1293 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1294
1314 real(RKB) , parameter :: weightG20(10) = &
1315 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1316 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1317 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1318 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1319 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1320 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1321 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1322 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1323 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1324 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1325
1345 real(RKB) , parameter :: nodeK41(21) = &
1346 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1347 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1348 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1349 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1350 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1351 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1352 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1353 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1354 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1355 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1356 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1357 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1358 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1359 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1360 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1361 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1362 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1363 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1364 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1365 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1366 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1367
1387 real(RKB) , parameter :: weightK41(21) = &
1388 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1389 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1390 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1391 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1392 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1393 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1394 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1395 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1396 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1397 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1398 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1399 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1400 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1401 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1402 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1403 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1404 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1405 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1406 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1407 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1408 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1409 ! \endcond excluded
1410
1411!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1412
1413 ! \cond excluded
1453 type :: GK51_type
1454 end type
1455 ! \endcond excluded
1456
1484 type(GK51_type) , parameter :: GK51 = GK51_type()
1485
1486 ! \cond excluded
1506 real(RKB) , parameter :: nodeG25(13) = &
1507 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1508 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1509 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1510 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1511 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1512 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1513 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1514 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1515 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1516 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1517 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1518 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1519 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1520
1540 real(RKB) , parameter :: weightG25(13) = &
1541 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1542 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1543 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1544 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1545 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1546 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1547 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1548 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1549 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1550 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1551 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1552 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1553 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1554
1574 real(RKB) , parameter :: nodeK51(26) = &
1575 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1576 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1577 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1578 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1579 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1580 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1581 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1582 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1583 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1584 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1585 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1586 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1587 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1588 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1589 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1590 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1591 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1592 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1593 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1594 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1595 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1596 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1597 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1598 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1599 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1600 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1601
1621 real(RKB) , parameter :: weightK51(26) = &
1622 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1623 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1624 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1625 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1626 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1627 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1628 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1629 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1630 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1631 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1632 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1633 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1634 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1635 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1636 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1637 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1638 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1639 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1640 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1641 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1642 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1643 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1644 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1645 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1646 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1647 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1648 ! \endcond excluded
1649
1650!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1651
1652 ! \cond excluded
1692 type :: GK61_type
1693 end type
1694 ! \endcond excluded
1695
1723 type(GK61_type) , parameter :: GK61 = GK61_type()
1724
1725 ! \cond excluded
1745 real(RKB) , parameter :: nodeG30(15) = &
1746 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1747 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1748 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1749 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1750 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1751 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1752 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1753 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1754 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1755 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1756 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1757 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1758 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1759 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1760 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1761
1781 real(RKB) , parameter :: weightG30(15) = &
1782 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1783 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1784 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1785 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1786 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1787 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1788 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1789 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1790 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1791 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1792 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1793 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1794 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1795 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1796 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1797
1798
1818 real(RKB) , parameter :: nodeK61(31) = &
1819 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1820 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1821 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1822 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1823 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1824 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1825 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1826 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1827 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1828 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1829 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1830 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1831 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1832 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1833 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1834 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1835 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1836 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1837 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1838 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1839 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1840 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1841 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1842 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1843 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1844 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1845 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1846 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1847 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1848 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1849 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1850
1870 real(RKB) , parameter :: weightK61(31) = &
1871 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1872 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1873 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1874 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1875 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1876 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1877 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1878 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1879 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1880 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1881 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1882 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1883 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1884 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1885 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1886 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1887 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1888 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1889 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1890 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1891 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1892 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1893 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1894 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1895 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1896 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1897 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1898 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1899 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1900 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1901 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1902 ! \endcond excluded
1903
1904!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905
1969 interface setNodeWeightGK
1970
1971 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
1973#if RK5_ENABLED
1974 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
1977#endif
1978 use pm_kind, only: RKC => RK5
1979 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1980 end subroutine
1981#endif
1982
1983#if RK4_ENABLED
1984 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
1985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1986 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
1987#endif
1988 use pm_kind, only: RKC => RK4
1989 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
1990 end subroutine
1991#endif
1992
1993#if RK3_ENABLED
1994 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
1995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1996 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
1997#endif
1998 use pm_kind, only: RKC => RK3
1999 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2000 end subroutine
2001#endif
2002
2003#if RK2_ENABLED
2004 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2006 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2007#endif
2008 use pm_kind, only: RKC => RK2
2009 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2010 end subroutine
2011#endif
2012
2013#if RK1_ENABLED
2014 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2016 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2017#endif
2018 use pm_kind, only: RKC => RK1
2019 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2020 end subroutine
2021#endif
2022
2023 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2024
2025#if RK5_ENABLED
2026 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2028 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2029#endif
2030 use pm_kind, only: RKC => RK5
2031 integer(IK) , intent(in) :: order
2032 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2033 end subroutine
2034#endif
2035
2036#if RK4_ENABLED
2037 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2038#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2039 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2040#endif
2041 use pm_kind, only: RKC => RK4
2042 integer(IK) , intent(in) :: order
2043 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2044 end subroutine
2045#endif
2046
2047#if RK3_ENABLED
2048 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2049#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2050 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2051#endif
2052 use pm_kind, only: RKC => RK3
2053 integer(IK) , intent(in) :: order
2054 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2055 end subroutine
2056#endif
2057
2058#if RK2_ENABLED
2059 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2061 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2062#endif
2063 use pm_kind, only: RKC => RK2
2064 integer(IK) , intent(in) :: order
2065 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2066 end subroutine
2067#endif
2068
2069#if RK1_ENABLED
2070 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2073#endif
2074 use pm_kind, only: RKC => RK1
2075 integer(IK) , intent(in) :: order
2076 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2081
2082 end interface
2083
2084!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2085
2086 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2087 ! G: Gauss rule,
2088 ! K: Kronrod rule,
2089 ! D: default method,
2090 ! F: finite integration limits,
2091 ! P: Positive integration limit,
2092 ! N: Negative integration limit,
2093 ! B: Both negative and positive integration limits,
2094
2202
2203 ! GK15
2204
2205 interface getQuadGK
2206
2207 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2208
2209#if RK5_ENABLED
2210 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2213#endif
2214 use pm_kind, only: RKC => RK5
2215 procedure(real(RKC)) :: getFunc
2216 real(RKC) , intent(in) :: lb
2217 real(RKC) , intent(in) :: ub
2218 type(GK15_type) , intent(in) :: qrule
2219 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2220 real(RKC) :: quadGK
2221 end function
2222#endif
2223
2224#if RK4_ENABLED
2225 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2228#endif
2229 use pm_kind, only: RKC => RK4
2230 procedure(real(RKC)) :: getFunc
2231 real(RKC) , intent(in) :: lb
2232 real(RKC) , intent(in) :: ub
2233 type(GK15_type) , intent(in) :: qrule
2234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2235 real(RKC) :: quadGK
2236 end function
2237#endif
2238
2239#if RK3_ENABLED
2240 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2243#endif
2244 use pm_kind, only: RKC => RK3
2245 procedure(real(RKC)) :: getFunc
2246 real(RKC) , intent(in) :: lb
2247 real(RKC) , intent(in) :: ub
2248 type(GK15_type) , intent(in) :: qrule
2249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2250 real(RKC) :: quadGK
2251 end function
2252#endif
2253
2254#if RK2_ENABLED
2255 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2258#endif
2259 use pm_kind, only: RKC => RK2
2260 procedure(real(RKC)) :: getFunc
2261 real(RKC) , intent(in) :: lb
2262 real(RKC) , intent(in) :: ub
2263 type(GK15_type) , intent(in) :: qrule
2264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2265 real(RKC) :: quadGK
2266 end function
2267#endif
2268
2269#if RK1_ENABLED
2270 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2273#endif
2274 use pm_kind, only: RKC => RK1
2275 procedure(real(RKC)) :: getFunc
2276 real(RKC) , intent(in) :: lb
2277 real(RKC) , intent(in) :: ub
2278 type(GK15_type) , intent(in) :: qrule
2279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2280 real(RKC) :: quadGK
2281 end function
2282#endif
2283
2284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2285
2286#if RK5_ENABLED
2287 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2289 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2290#endif
2291 use pm_kind, only: RKC => RK5
2292 procedure(real(RKC)) :: getFunc
2293 real(RKC) , intent(in) :: lb
2294 type(pinf_type) , intent(in) :: ub
2295 type(GK15_type) , intent(in) :: qrule
2296 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2297 real(RKC) :: quadGK
2298 end function
2299#endif
2300
2301#if RK4_ENABLED
2302 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2305#endif
2306 use pm_kind, only: RKC => RK4
2307 procedure(real(RKC)) :: getFunc
2308 real(RKC) , intent(in) :: lb
2309 type(pinf_type) , intent(in) :: ub
2310 type(GK15_type) , intent(in) :: qrule
2311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2312 real(RKC) :: quadGK
2313 end function
2314#endif
2315
2316#if RK3_ENABLED
2317 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2320#endif
2321 use pm_kind, only: RKC => RK3
2322 procedure(real(RKC)) :: getFunc
2323 real(RKC) , intent(in) :: lb
2324 type(pinf_type) , intent(in) :: ub
2325 type(GK15_type) , intent(in) :: qrule
2326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2327 real(RKC) :: quadGK
2328 end function
2329#endif
2330
2331#if RK2_ENABLED
2332 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2335#endif
2336 use pm_kind, only: RKC => RK2
2337 procedure(real(RKC)) :: getFunc
2338 real(RKC) , intent(in) :: lb
2339 type(pinf_type) , intent(in) :: ub
2340 type(GK15_type) , intent(in) :: qrule
2341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2342 real(RKC) :: quadGK
2343 end function
2344#endif
2345
2346#if RK1_ENABLED
2347 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2350#endif
2351 use pm_kind, only: RKC => RK1
2352 procedure(real(RKC)) :: getFunc
2353 real(RKC) , intent(in) :: lb
2354 type(pinf_type) , intent(in) :: ub
2355 type(GK15_type) , intent(in) :: qrule
2356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2357 real(RKC) :: quadGK
2358 end function
2359#endif
2360
2361 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2362
2363#if RK5_ENABLED
2364 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2367#endif
2368 use pm_kind, only: RKC => RK5
2369 procedure(real(RKC)) :: getFunc
2370 type(ninf_type) , intent(in) :: lb
2371 real(RKC) , intent(in) :: ub
2372 type(GK15_type) , intent(in) :: qrule
2373 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2374 real(RKC) :: quadGK
2375 end function
2376#endif
2377
2378#if RK4_ENABLED
2379 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2382#endif
2383 use pm_kind, only: RKC => RK4
2384 procedure(real(RKC)) :: getFunc
2385 type(ninf_type) , intent(in) :: lb
2386 real(RKC) , intent(in) :: ub
2387 type(GK15_type) , intent(in) :: qrule
2388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2389 real(RKC) :: quadGK
2390 end function
2391#endif
2392
2393#if RK3_ENABLED
2394 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2397#endif
2398 use pm_kind, only: RKC => RK3
2399 procedure(real(RKC)) :: getFunc
2400 type(ninf_type) , intent(in) :: lb
2401 real(RKC) , intent(in) :: ub
2402 type(GK15_type) , intent(in) :: qrule
2403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2404 real(RKC) :: quadGK
2405 end function
2406#endif
2407
2408#if RK2_ENABLED
2409 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2412#endif
2413 use pm_kind, only: RKC => RK2
2414 procedure(real(RKC)) :: getFunc
2415 type(ninf_type) , intent(in) :: lb
2416 real(RKC) , intent(in) :: ub
2417 type(GK15_type) , intent(in) :: qrule
2418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2419 real(RKC) :: quadGK
2420 end function
2421#endif
2422
2423#if RK1_ENABLED
2424 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2427#endif
2428 use pm_kind, only: RKC => RK1
2429 procedure(real(RKC)) :: getFunc
2430 type(ninf_type) , intent(in) :: lb
2431 real(RKC) , intent(in) :: ub
2432 type(GK15_type) , intent(in) :: qrule
2433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2434 real(RKC) :: quadGK
2435 end function
2436#endif
2437
2438 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2439
2440#if RK5_ENABLED
2441 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2442#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2443 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2444#endif
2445 use pm_kind, only: RKC => RK5
2446 procedure(real(RKC)) :: getFunc
2447 type(ninf_type) , intent(in) :: lb
2448 type(pinf_type) , intent(in) :: ub
2449 type(GK15_type) , intent(in) :: qrule
2450 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2451 real(RKC) :: quadGK
2452 end function
2453#endif
2454
2455#if RK4_ENABLED
2456 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2459#endif
2460 use pm_kind, only: RKC => RK4
2461 procedure(real(RKC)) :: getFunc
2462 type(ninf_type) , intent(in) :: lb
2463 type(pinf_type) , intent(in) :: ub
2464 type(GK15_type) , intent(in) :: qrule
2465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2466 real(RKC) :: quadGK
2467 end function
2468#endif
2469
2470#if RK3_ENABLED
2471 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2474#endif
2475 use pm_kind, only: RKC => RK3
2476 procedure(real(RKC)) :: getFunc
2477 type(ninf_type) , intent(in) :: lb
2478 type(pinf_type) , intent(in) :: ub
2479 type(GK15_type) , intent(in) :: qrule
2480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2481 real(RKC) :: quadGK
2482 end function
2483#endif
2484
2485#if RK2_ENABLED
2486 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2489#endif
2490 use pm_kind, only: RKC => RK2
2491 procedure(real(RKC)) :: getFunc
2492 type(ninf_type) , intent(in) :: lb
2493 type(pinf_type) , intent(in) :: ub
2494 type(GK15_type) , intent(in) :: qrule
2495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2496 real(RKC) :: quadGK
2497 end function
2498#endif
2499
2500#if RK1_ENABLED
2501 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2504#endif
2505 use pm_kind, only: RKC => RK1
2506 procedure(real(RKC)) :: getFunc
2507 type(ninf_type) , intent(in) :: lb
2508 type(pinf_type) , intent(in) :: ub
2509 type(GK15_type) , intent(in) :: qrule
2510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2511 real(RKC) :: quadGK
2512 end function
2513#endif
2514
2515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2516
2517 end interface
2518
2519 ! GK21
2520
2521 interface getQuadGK
2522
2523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2524
2525#if RK5_ENABLED
2526 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2527#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2528 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2529#endif
2530 use pm_kind, only: RKC => RK5
2531 procedure(real(RKC)) :: getFunc
2532 real(RKC) , intent(in) :: lb
2533 real(RKC) , intent(in) :: ub
2534 type(GK21_type) , intent(in) :: qrule
2535 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2536 real(RKC) :: quadGK
2537 end function
2538#endif
2539
2540#if RK4_ENABLED
2541 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2544#endif
2545 use pm_kind, only: RKC => RK4
2546 procedure(real(RKC)) :: getFunc
2547 real(RKC) , intent(in) :: lb
2548 real(RKC) , intent(in) :: ub
2549 type(GK21_type) , intent(in) :: qrule
2550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2551 real(RKC) :: quadGK
2552 end function
2553#endif
2554
2555#if RK3_ENABLED
2556 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2559#endif
2560 use pm_kind, only: RKC => RK3
2561 procedure(real(RKC)) :: getFunc
2562 real(RKC) , intent(in) :: lb
2563 real(RKC) , intent(in) :: ub
2564 type(GK21_type) , intent(in) :: qrule
2565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2566 real(RKC) :: quadGK
2567 end function
2568#endif
2569
2570#if RK2_ENABLED
2571 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2574#endif
2575 use pm_kind, only: RKC => RK2
2576 procedure(real(RKC)) :: getFunc
2577 real(RKC) , intent(in) :: lb
2578 real(RKC) , intent(in) :: ub
2579 type(GK21_type) , intent(in) :: qrule
2580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2581 real(RKC) :: quadGK
2582 end function
2583#endif
2584
2585#if RK1_ENABLED
2586 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2589#endif
2590 use pm_kind, only: RKC => RK1
2591 procedure(real(RKC)) :: getFunc
2592 real(RKC) , intent(in) :: lb
2593 real(RKC) , intent(in) :: ub
2594 type(GK21_type) , intent(in) :: qrule
2595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2596 real(RKC) :: quadGK
2597 end function
2598#endif
2599
2600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2601
2602#if RK5_ENABLED
2603 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2606#endif
2607 use pm_kind, only: RKC => RK5
2608 procedure(real(RKC)) :: getFunc
2609 real(RKC) , intent(in) :: lb
2610 type(pinf_type) , intent(in) :: ub
2611 type(GK21_type) , intent(in) :: qrule
2612 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2613 real(RKC) :: quadGK
2614 end function
2615#endif
2616
2617#if RK4_ENABLED
2618 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2621#endif
2622 use pm_kind, only: RKC => RK4
2623 procedure(real(RKC)) :: getFunc
2624 real(RKC) , intent(in) :: lb
2625 type(pinf_type) , intent(in) :: ub
2626 type(GK21_type) , intent(in) :: qrule
2627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2628 real(RKC) :: quadGK
2629 end function
2630#endif
2631
2632#if RK3_ENABLED
2633 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2636#endif
2637 use pm_kind, only: RKC => RK3
2638 procedure(real(RKC)) :: getFunc
2639 real(RKC) , intent(in) :: lb
2640 type(pinf_type) , intent(in) :: ub
2641 type(GK21_type) , intent(in) :: qrule
2642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2643 real(RKC) :: quadGK
2644 end function
2645#endif
2646
2647#if RK2_ENABLED
2648 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2651#endif
2652 use pm_kind, only: RKC => RK2
2653 procedure(real(RKC)) :: getFunc
2654 real(RKC) , intent(in) :: lb
2655 type(pinf_type) , intent(in) :: ub
2656 type(GK21_type) , intent(in) :: qrule
2657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2658 real(RKC) :: quadGK
2659 end function
2660#endif
2661
2662#if RK1_ENABLED
2663 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2666#endif
2667 use pm_kind, only: RKC => RK1
2668 procedure(real(RKC)) :: getFunc
2669 real(RKC) , intent(in) :: lb
2670 type(pinf_type) , intent(in) :: ub
2671 type(GK21_type) , intent(in) :: qrule
2672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2673 real(RKC) :: quadGK
2674 end function
2675#endif
2676
2677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2678
2679#if RK5_ENABLED
2680 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2682 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2683#endif
2684 use pm_kind, only: RKC => RK5
2685 procedure(real(RKC)) :: getFunc
2686 type(ninf_type) , intent(in) :: lb
2687 real(RKC) , intent(in) :: ub
2688 type(GK21_type) , intent(in) :: qrule
2689 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2690 real(RKC) :: quadGK
2691 end function
2692#endif
2693
2694#if RK4_ENABLED
2695 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2698#endif
2699 use pm_kind, only: RKC => RK4
2700 procedure(real(RKC)) :: getFunc
2701 type(ninf_type) , intent(in) :: lb
2702 real(RKC) , intent(in) :: ub
2703 type(GK21_type) , intent(in) :: qrule
2704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2705 real(RKC) :: quadGK
2706 end function
2707#endif
2708
2709#if RK3_ENABLED
2710 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2713#endif
2714 use pm_kind, only: RKC => RK3
2715 procedure(real(RKC)) :: getFunc
2716 type(ninf_type) , intent(in) :: lb
2717 real(RKC) , intent(in) :: ub
2718 type(GK21_type) , intent(in) :: qrule
2719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2720 real(RKC) :: quadGK
2721 end function
2722#endif
2723
2724#if RK2_ENABLED
2725 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2728#endif
2729 use pm_kind, only: RKC => RK2
2730 procedure(real(RKC)) :: getFunc
2731 type(ninf_type) , intent(in) :: lb
2732 real(RKC) , intent(in) :: ub
2733 type(GK21_type) , intent(in) :: qrule
2734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2735 real(RKC) :: quadGK
2736 end function
2737#endif
2738
2739#if RK1_ENABLED
2740 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2743#endif
2744 use pm_kind, only: RKC => RK1
2745 procedure(real(RKC)) :: getFunc
2746 type(ninf_type) , intent(in) :: lb
2747 real(RKC) , intent(in) :: ub
2748 type(GK21_type) , intent(in) :: qrule
2749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2750 real(RKC) :: quadGK
2751 end function
2752#endif
2753
2754 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2755
2756#if RK5_ENABLED
2757 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2759 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2760#endif
2761 use pm_kind, only: RKC => RK5
2762 procedure(real(RKC)) :: getFunc
2763 type(ninf_type) , intent(in) :: lb
2764 type(pinf_type) , intent(in) :: ub
2765 type(GK21_type) , intent(in) :: qrule
2766 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2767 real(RKC) :: quadGK
2768 end function
2769#endif
2770
2771#if RK4_ENABLED
2772 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2775#endif
2776 use pm_kind, only: RKC => RK4
2777 procedure(real(RKC)) :: getFunc
2778 type(ninf_type) , intent(in) :: lb
2779 type(pinf_type) , intent(in) :: ub
2780 type(GK21_type) , intent(in) :: qrule
2781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2782 real(RKC) :: quadGK
2783 end function
2784#endif
2785
2786#if RK3_ENABLED
2787 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2790#endif
2791 use pm_kind, only: RKC => RK3
2792 procedure(real(RKC)) :: getFunc
2793 type(ninf_type) , intent(in) :: lb
2794 type(pinf_type) , intent(in) :: ub
2795 type(GK21_type) , intent(in) :: qrule
2796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2797 real(RKC) :: quadGK
2798 end function
2799#endif
2800
2801#if RK2_ENABLED
2802 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2805#endif
2806 use pm_kind, only: RKC => RK2
2807 procedure(real(RKC)) :: getFunc
2808 type(ninf_type) , intent(in) :: lb
2809 type(pinf_type) , intent(in) :: ub
2810 type(GK21_type) , intent(in) :: qrule
2811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2812 real(RKC) :: quadGK
2813 end function
2814#endif
2815
2816#if RK1_ENABLED
2817 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2820#endif
2821 use pm_kind, only: RKC => RK1
2822 procedure(real(RKC)) :: getFunc
2823 type(ninf_type) , intent(in) :: lb
2824 type(pinf_type) , intent(in) :: ub
2825 type(GK21_type) , intent(in) :: qrule
2826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2827 real(RKC) :: quadGK
2828 end function
2829#endif
2830
2831 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2832
2833 end interface
2834
2835 ! GK31
2836
2837 interface getQuadGK
2838
2839 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2840
2841#if RK5_ENABLED
2842 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2844 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2845#endif
2846 use pm_kind, only: RKC => RK5
2847 procedure(real(RKC)) :: getFunc
2848 real(RKC) , intent(in) :: lb
2849 real(RKC) , intent(in) :: ub
2850 type(GK31_type) , intent(in) :: qrule
2851 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2852 real(RKC) :: quadGK
2853 end function
2854#endif
2855
2856#if RK4_ENABLED
2857 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2860#endif
2861 use pm_kind, only: RKC => RK4
2862 procedure(real(RKC)) :: getFunc
2863 real(RKC) , intent(in) :: lb
2864 real(RKC) , intent(in) :: ub
2865 type(GK31_type) , intent(in) :: qrule
2866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2867 real(RKC) :: quadGK
2868 end function
2869#endif
2870
2871#if RK3_ENABLED
2872 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2875#endif
2876 use pm_kind, only: RKC => RK3
2877 procedure(real(RKC)) :: getFunc
2878 real(RKC) , intent(in) :: lb
2879 real(RKC) , intent(in) :: ub
2880 type(GK31_type) , intent(in) :: qrule
2881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2882 real(RKC) :: quadGK
2883 end function
2884#endif
2885
2886#if RK2_ENABLED
2887 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2890#endif
2891 use pm_kind, only: RKC => RK2
2892 procedure(real(RKC)) :: getFunc
2893 real(RKC) , intent(in) :: lb
2894 real(RKC) , intent(in) :: ub
2895 type(GK31_type) , intent(in) :: qrule
2896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2897 real(RKC) :: quadGK
2898 end function
2899#endif
2900
2901#if RK1_ENABLED
2902 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2905#endif
2906 use pm_kind, only: RKC => RK1
2907 procedure(real(RKC)) :: getFunc
2908 real(RKC) , intent(in) :: lb
2909 real(RKC) , intent(in) :: ub
2910 type(GK31_type) , intent(in) :: qrule
2911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2912 real(RKC) :: quadGK
2913 end function
2914#endif
2915
2916 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2917
2918#if RK5_ENABLED
2919 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2920#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2921 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2922#endif
2923 use pm_kind, only: RKC => RK5
2924 procedure(real(RKC)) :: getFunc
2925 real(RKC) , intent(in) :: lb
2926 type(pinf_type) , intent(in) :: ub
2927 type(GK31_type) , intent(in) :: qrule
2928 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2929 real(RKC) :: quadGK
2930 end function
2931#endif
2932
2933#if RK4_ENABLED
2934 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
2937#endif
2938 use pm_kind, only: RKC => RK4
2939 procedure(real(RKC)) :: getFunc
2940 real(RKC) , intent(in) :: lb
2941 type(pinf_type) , intent(in) :: ub
2942 type(GK31_type) , intent(in) :: qrule
2943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2944 real(RKC) :: quadGK
2945 end function
2946#endif
2947
2948#if RK3_ENABLED
2949 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
2952#endif
2953 use pm_kind, only: RKC => RK3
2954 procedure(real(RKC)) :: getFunc
2955 real(RKC) , intent(in) :: lb
2956 type(pinf_type) , intent(in) :: ub
2957 type(GK31_type) , intent(in) :: qrule
2958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2959 real(RKC) :: quadGK
2960 end function
2961#endif
2962
2963#if RK2_ENABLED
2964 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
2967#endif
2968 use pm_kind, only: RKC => RK2
2969 procedure(real(RKC)) :: getFunc
2970 real(RKC) , intent(in) :: lb
2971 type(pinf_type) , intent(in) :: ub
2972 type(GK31_type) , intent(in) :: qrule
2973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2974 real(RKC) :: quadGK
2975 end function
2976#endif
2977
2978#if RK1_ENABLED
2979 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
2982#endif
2983 use pm_kind, only: RKC => RK1
2984 procedure(real(RKC)) :: getFunc
2985 real(RKC) , intent(in) :: lb
2986 type(pinf_type) , intent(in) :: ub
2987 type(GK31_type) , intent(in) :: qrule
2988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2989 real(RKC) :: quadGK
2990 end function
2991#endif
2992
2993 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2994
2995#if RK5_ENABLED
2996 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
2999#endif
3000 use pm_kind, only: RKC => RK5
3001 procedure(real(RKC)) :: getFunc
3002 type(ninf_type) , intent(in) :: lb
3003 real(RKC) , intent(in) :: ub
3004 type(GK31_type) , intent(in) :: qrule
3005 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3006 real(RKC) :: quadGK
3007 end function
3008#endif
3009
3010#if RK4_ENABLED
3011 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3014#endif
3015 use pm_kind, only: RKC => RK4
3016 procedure(real(RKC)) :: getFunc
3017 type(ninf_type) , intent(in) :: lb
3018 real(RKC) , intent(in) :: ub
3019 type(GK31_type) , intent(in) :: qrule
3020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3021 real(RKC) :: quadGK
3022 end function
3023#endif
3024
3025#if RK3_ENABLED
3026 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3029#endif
3030 use pm_kind, only: RKC => RK3
3031 procedure(real(RKC)) :: getFunc
3032 type(ninf_type) , intent(in) :: lb
3033 real(RKC) , intent(in) :: ub
3034 type(GK31_type) , intent(in) :: qrule
3035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3036 real(RKC) :: quadGK
3037 end function
3038#endif
3039
3040#if RK2_ENABLED
3041 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3044#endif
3045 use pm_kind, only: RKC => RK2
3046 procedure(real(RKC)) :: getFunc
3047 type(ninf_type) , intent(in) :: lb
3048 real(RKC) , intent(in) :: ub
3049 type(GK31_type) , intent(in) :: qrule
3050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3051 real(RKC) :: quadGK
3052 end function
3053#endif
3054
3055#if RK1_ENABLED
3056 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3059#endif
3060 use pm_kind, only: RKC => RK1
3061 procedure(real(RKC)) :: getFunc
3062 type(ninf_type) , intent(in) :: lb
3063 real(RKC) , intent(in) :: ub
3064 type(GK31_type) , intent(in) :: qrule
3065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3066 real(RKC) :: quadGK
3067 end function
3068#endif
3069
3070 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3071
3072#if RK5_ENABLED
3073 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3075 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3076#endif
3077 use pm_kind, only: RKC => RK5
3078 procedure(real(RKC)) :: getFunc
3079 type(ninf_type) , intent(in) :: lb
3080 type(pinf_type) , intent(in) :: ub
3081 type(GK31_type) , intent(in) :: qrule
3082 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3083 real(RKC) :: quadGK
3084 end function
3085#endif
3086
3087#if RK4_ENABLED
3088 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3091#endif
3092 use pm_kind, only: RKC => RK4
3093 procedure(real(RKC)) :: getFunc
3094 type(ninf_type) , intent(in) :: lb
3095 type(pinf_type) , intent(in) :: ub
3096 type(GK31_type) , intent(in) :: qrule
3097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3098 real(RKC) :: quadGK
3099 end function
3100#endif
3101
3102#if RK3_ENABLED
3103 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3106#endif
3107 use pm_kind, only: RKC => RK3
3108 procedure(real(RKC)) :: getFunc
3109 type(ninf_type) , intent(in) :: lb
3110 type(pinf_type) , intent(in) :: ub
3111 type(GK31_type) , intent(in) :: qrule
3112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3113 real(RKC) :: quadGK
3114 end function
3115#endif
3116
3117#if RK2_ENABLED
3118 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3121#endif
3122 use pm_kind, only: RKC => RK2
3123 procedure(real(RKC)) :: getFunc
3124 type(ninf_type) , intent(in) :: lb
3125 type(pinf_type) , intent(in) :: ub
3126 type(GK31_type) , intent(in) :: qrule
3127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3128 real(RKC) :: quadGK
3129 end function
3130#endif
3131
3132#if RK1_ENABLED
3133 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3136#endif
3137 use pm_kind, only: RKC => RK1
3138 procedure(real(RKC)) :: getFunc
3139 type(ninf_type) , intent(in) :: lb
3140 type(pinf_type) , intent(in) :: ub
3141 type(GK31_type) , intent(in) :: qrule
3142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3143 real(RKC) :: quadGK
3144 end function
3145#endif
3146
3147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3148
3149 end interface
3150
3151 ! GK41
3152
3153 interface getQuadGK
3154
3155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3156
3157#if RK5_ENABLED
3158 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3160 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3161#endif
3162 use pm_kind, only: RKC => RK5
3163 procedure(real(RKC)) :: getFunc
3164 real(RKC) , intent(in) :: lb
3165 real(RKC) , intent(in) :: ub
3166 type(GK41_type) , intent(in) :: qrule
3167 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3168 real(RKC) :: quadGK
3169 end function
3170#endif
3171
3172#if RK4_ENABLED
3173 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3176#endif
3177 use pm_kind, only: RKC => RK4
3178 procedure(real(RKC)) :: getFunc
3179 real(RKC) , intent(in) :: lb
3180 real(RKC) , intent(in) :: ub
3181 type(GK41_type) , intent(in) :: qrule
3182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3183 real(RKC) :: quadGK
3184 end function
3185#endif
3186
3187#if RK3_ENABLED
3188 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3191#endif
3192 use pm_kind, only: RKC => RK3
3193 procedure(real(RKC)) :: getFunc
3194 real(RKC) , intent(in) :: lb
3195 real(RKC) , intent(in) :: ub
3196 type(GK41_type) , intent(in) :: qrule
3197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3198 real(RKC) :: quadGK
3199 end function
3200#endif
3201
3202#if RK2_ENABLED
3203 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3206#endif
3207 use pm_kind, only: RKC => RK2
3208 procedure(real(RKC)) :: getFunc
3209 real(RKC) , intent(in) :: lb
3210 real(RKC) , intent(in) :: ub
3211 type(GK41_type) , intent(in) :: qrule
3212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3213 real(RKC) :: quadGK
3214 end function
3215#endif
3216
3217#if RK1_ENABLED
3218 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3221#endif
3222 use pm_kind, only: RKC => RK1
3223 procedure(real(RKC)) :: getFunc
3224 real(RKC) , intent(in) :: lb
3225 real(RKC) , intent(in) :: ub
3226 type(GK41_type) , intent(in) :: qrule
3227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3228 real(RKC) :: quadGK
3229 end function
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if RK5_ENABLED
3235 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3238#endif
3239 use pm_kind, only: RKC => RK5
3240 procedure(real(RKC)) :: getFunc
3241 real(RKC) , intent(in) :: lb
3242 type(pinf_type) , intent(in) :: ub
3243 type(GK41_type) , intent(in) :: qrule
3244 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3245 real(RKC) :: quadGK
3246 end function
3247#endif
3248
3249#if RK4_ENABLED
3250 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3253#endif
3254 use pm_kind, only: RKC => RK4
3255 procedure(real(RKC)) :: getFunc
3256 real(RKC) , intent(in) :: lb
3257 type(pinf_type) , intent(in) :: ub
3258 type(GK41_type) , intent(in) :: qrule
3259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3260 real(RKC) :: quadGK
3261 end function
3262#endif
3263
3264#if RK3_ENABLED
3265 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3268#endif
3269 use pm_kind, only: RKC => RK3
3270 procedure(real(RKC)) :: getFunc
3271 real(RKC) , intent(in) :: lb
3272 type(pinf_type) , intent(in) :: ub
3273 type(GK41_type) , intent(in) :: qrule
3274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3275 real(RKC) :: quadGK
3276 end function
3277#endif
3278
3279#if RK2_ENABLED
3280 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3283#endif
3284 use pm_kind, only: RKC => RK2
3285 procedure(real(RKC)) :: getFunc
3286 real(RKC) , intent(in) :: lb
3287 type(pinf_type) , intent(in) :: ub
3288 type(GK41_type) , intent(in) :: qrule
3289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3290 real(RKC) :: quadGK
3291 end function
3292#endif
3293
3294#if RK1_ENABLED
3295 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3298#endif
3299 use pm_kind, only: RKC => RK1
3300 procedure(real(RKC)) :: getFunc
3301 real(RKC) , intent(in) :: lb
3302 type(pinf_type) , intent(in) :: ub
3303 type(GK41_type) , intent(in) :: qrule
3304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3305 real(RKC) :: quadGK
3306 end function
3307#endif
3308
3309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3310
3311#if RK5_ENABLED
3312 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3315#endif
3316 use pm_kind, only: RKC => RK5
3317 procedure(real(RKC)) :: getFunc
3318 type(ninf_type) , intent(in) :: lb
3319 real(RKC) , intent(in) :: ub
3320 type(GK41_type) , intent(in) :: qrule
3321 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3322 real(RKC) :: quadGK
3323 end function
3324#endif
3325
3326#if RK4_ENABLED
3327 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3330#endif
3331 use pm_kind, only: RKC => RK4
3332 procedure(real(RKC)) :: getFunc
3333 type(ninf_type) , intent(in) :: lb
3334 real(RKC) , intent(in) :: ub
3335 type(GK41_type) , intent(in) :: qrule
3336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3337 real(RKC) :: quadGK
3338 end function
3339#endif
3340
3341#if RK3_ENABLED
3342 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3345#endif
3346 use pm_kind, only: RKC => RK3
3347 procedure(real(RKC)) :: getFunc
3348 type(ninf_type) , intent(in) :: lb
3349 real(RKC) , intent(in) :: ub
3350 type(GK41_type) , intent(in) :: qrule
3351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3352 real(RKC) :: quadGK
3353 end function
3354#endif
3355
3356#if RK2_ENABLED
3357 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3360#endif
3361 use pm_kind, only: RKC => RK2
3362 procedure(real(RKC)) :: getFunc
3363 type(ninf_type) , intent(in) :: lb
3364 real(RKC) , intent(in) :: ub
3365 type(GK41_type) , intent(in) :: qrule
3366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3367 real(RKC) :: quadGK
3368 end function
3369#endif
3370
3371#if RK1_ENABLED
3372 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3375#endif
3376 use pm_kind, only: RKC => RK1
3377 procedure(real(RKC)) :: getFunc
3378 type(ninf_type) , intent(in) :: lb
3379 real(RKC) , intent(in) :: ub
3380 type(GK41_type) , intent(in) :: qrule
3381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3382 real(RKC) :: quadGK
3383 end function
3384#endif
3385
3386 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3387
3388#if RK5_ENABLED
3389 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3390#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3391 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3392#endif
3393 use pm_kind, only: RKC => RK5
3394 procedure(real(RKC)) :: getFunc
3395 type(ninf_type) , intent(in) :: lb
3396 type(pinf_type) , intent(in) :: ub
3397 type(GK41_type) , intent(in) :: qrule
3398 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3399 real(RKC) :: quadGK
3400 end function
3401#endif
3402
3403#if RK4_ENABLED
3404 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3407#endif
3408 use pm_kind, only: RKC => RK4
3409 procedure(real(RKC)) :: getFunc
3410 type(ninf_type) , intent(in) :: lb
3411 type(pinf_type) , intent(in) :: ub
3412 type(GK41_type) , intent(in) :: qrule
3413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3414 real(RKC) :: quadGK
3415 end function
3416#endif
3417
3418#if RK3_ENABLED
3419 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3422#endif
3423 use pm_kind, only: RKC => RK3
3424 procedure(real(RKC)) :: getFunc
3425 type(ninf_type) , intent(in) :: lb
3426 type(pinf_type) , intent(in) :: ub
3427 type(GK41_type) , intent(in) :: qrule
3428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3429 real(RKC) :: quadGK
3430 end function
3431#endif
3432
3433#if RK2_ENABLED
3434 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3437#endif
3438 use pm_kind, only: RKC => RK2
3439 procedure(real(RKC)) :: getFunc
3440 type(ninf_type) , intent(in) :: lb
3441 type(pinf_type) , intent(in) :: ub
3442 type(GK41_type) , intent(in) :: qrule
3443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3444 real(RKC) :: quadGK
3445 end function
3446#endif
3447
3448#if RK1_ENABLED
3449 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3452#endif
3453 use pm_kind, only: RKC => RK1
3454 procedure(real(RKC)) :: getFunc
3455 type(ninf_type) , intent(in) :: lb
3456 type(pinf_type) , intent(in) :: ub
3457 type(GK41_type) , intent(in) :: qrule
3458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3459 real(RKC) :: quadGK
3460 end function
3461#endif
3462
3463 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3464
3465 end interface
3466
3467 ! GK51
3468
3469 interface getQuadGK
3470
3471 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3472
3473#if RK5_ENABLED
3474 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3476 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3477#endif
3478 use pm_kind, only: RKC => RK5
3479 procedure(real(RKC)) :: getFunc
3480 real(RKC) , intent(in) :: lb
3481 real(RKC) , intent(in) :: ub
3482 type(GK51_type) , intent(in) :: qrule
3483 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3484 real(RKC) :: quadGK
3485 end function
3486#endif
3487
3488#if RK4_ENABLED
3489 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3491 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3492#endif
3493 use pm_kind, only: RKC => RK4
3494 procedure(real(RKC)) :: getFunc
3495 real(RKC) , intent(in) :: lb
3496 real(RKC) , intent(in) :: ub
3497 type(GK51_type) , intent(in) :: qrule
3498 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3499 real(RKC) :: quadGK
3500 end function
3501#endif
3502
3503#if RK3_ENABLED
3504 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3506 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3507#endif
3508 use pm_kind, only: RKC => RK3
3509 procedure(real(RKC)) :: getFunc
3510 real(RKC) , intent(in) :: lb
3511 real(RKC) , intent(in) :: ub
3512 type(GK51_type) , intent(in) :: qrule
3513 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3514 real(RKC) :: quadGK
3515 end function
3516#endif
3517
3518#if RK2_ENABLED
3519 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3520#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3521 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3522#endif
3523 use pm_kind, only: RKC => RK2
3524 procedure(real(RKC)) :: getFunc
3525 real(RKC) , intent(in) :: lb
3526 real(RKC) , intent(in) :: ub
3527 type(GK51_type) , intent(in) :: qrule
3528 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3529 real(RKC) :: quadGK
3530 end function
3531#endif
3532
3533#if RK1_ENABLED
3534 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3537#endif
3538 use pm_kind, only: RKC => RK1
3539 procedure(real(RKC)) :: getFunc
3540 real(RKC) , intent(in) :: lb
3541 real(RKC) , intent(in) :: ub
3542 type(GK51_type) , intent(in) :: qrule
3543 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3544 real(RKC) :: quadGK
3545 end function
3546#endif
3547
3548 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3549
3550#if RK5_ENABLED
3551 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3553 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3554#endif
3555 use pm_kind, only: RKC => RK5
3556 procedure(real(RKC)) :: getFunc
3557 real(RKC) , intent(in) :: lb
3558 type(pinf_type) , intent(in) :: ub
3559 type(GK51_type) , intent(in) :: qrule
3560 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3561 real(RKC) :: quadGK
3562 end function
3563#endif
3564
3565#if RK4_ENABLED
3566 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3568 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3569#endif
3570 use pm_kind, only: RKC => RK4
3571 procedure(real(RKC)) :: getFunc
3572 real(RKC) , intent(in) :: lb
3573 type(pinf_type) , intent(in) :: ub
3574 type(GK51_type) , intent(in) :: qrule
3575 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3576 real(RKC) :: quadGK
3577 end function
3578#endif
3579
3580#if RK3_ENABLED
3581 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3583 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3584#endif
3585 use pm_kind, only: RKC => RK3
3586 procedure(real(RKC)) :: getFunc
3587 real(RKC) , intent(in) :: lb
3588 type(pinf_type) , intent(in) :: ub
3589 type(GK51_type) , intent(in) :: qrule
3590 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3591 real(RKC) :: quadGK
3592 end function
3593#endif
3594
3595#if RK2_ENABLED
3596 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3599#endif
3600 use pm_kind, only: RKC => RK2
3601 procedure(real(RKC)) :: getFunc
3602 real(RKC) , intent(in) :: lb
3603 type(pinf_type) , intent(in) :: ub
3604 type(GK51_type) , intent(in) :: qrule
3605 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3606 real(RKC) :: quadGK
3607 end function
3608#endif
3609
3610#if RK1_ENABLED
3611 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3612#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3613 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3614#endif
3615 use pm_kind, only: RKC => RK1
3616 procedure(real(RKC)) :: getFunc
3617 real(RKC) , intent(in) :: lb
3618 type(pinf_type) , intent(in) :: ub
3619 type(GK51_type) , intent(in) :: qrule
3620 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3621 real(RKC) :: quadGK
3622 end function
3623#endif
3624
3625 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3626
3627#if RK5_ENABLED
3628 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3630 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3631#endif
3632 use pm_kind, only: RKC => RK5
3633 procedure(real(RKC)) :: getFunc
3634 type(ninf_type) , intent(in) :: lb
3635 real(RKC) , intent(in) :: ub
3636 type(GK51_type) , intent(in) :: qrule
3637 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3638 real(RKC) :: quadGK
3639 end function
3640#endif
3641
3642#if RK4_ENABLED
3643 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3645 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3646#endif
3647 use pm_kind, only: RKC => RK4
3648 procedure(real(RKC)) :: getFunc
3649 type(ninf_type) , intent(in) :: lb
3650 real(RKC) , intent(in) :: ub
3651 type(GK51_type) , intent(in) :: qrule
3652 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3653 real(RKC) :: quadGK
3654 end function
3655#endif
3656
3657#if RK3_ENABLED
3658 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3660 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3661#endif
3662 use pm_kind, only: RKC => RK3
3663 procedure(real(RKC)) :: getFunc
3664 type(ninf_type) , intent(in) :: lb
3665 real(RKC) , intent(in) :: ub
3666 type(GK51_type) , intent(in) :: qrule
3667 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3668 real(RKC) :: quadGK
3669 end function
3670#endif
3671
3672#if RK2_ENABLED
3673 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3675 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3676#endif
3677 use pm_kind, only: RKC => RK2
3678 procedure(real(RKC)) :: getFunc
3679 type(ninf_type) , intent(in) :: lb
3680 real(RKC) , intent(in) :: ub
3681 type(GK51_type) , intent(in) :: qrule
3682 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3683 real(RKC) :: quadGK
3684 end function
3685#endif
3686
3687#if RK1_ENABLED
3688 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3690 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3691#endif
3692 use pm_kind, only: RKC => RK1
3693 procedure(real(RKC)) :: getFunc
3694 type(ninf_type) , intent(in) :: lb
3695 real(RKC) , intent(in) :: ub
3696 type(GK51_type) , intent(in) :: qrule
3697 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3698 real(RKC) :: quadGK
3699 end function
3700#endif
3701
3702 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3703
3704#if RK5_ENABLED
3705 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3707 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3708#endif
3709 use pm_kind, only: RKC => RK5
3710 procedure(real(RKC)) :: getFunc
3711 type(ninf_type) , intent(in) :: lb
3712 type(pinf_type) , intent(in) :: ub
3713 type(GK51_type) , intent(in) :: qrule
3714 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3715 real(RKC) :: quadGK
3716 end function
3717#endif
3718
3719#if RK4_ENABLED
3720 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3722 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3723#endif
3724 use pm_kind, only: RKC => RK4
3725 procedure(real(RKC)) :: getFunc
3726 type(ninf_type) , intent(in) :: lb
3727 type(pinf_type) , intent(in) :: ub
3728 type(GK51_type) , intent(in) :: qrule
3729 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3730 real(RKC) :: quadGK
3731 end function
3732#endif
3733
3734#if RK3_ENABLED
3735 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3736#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3737 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3738#endif
3739 use pm_kind, only: RKC => RK3
3740 procedure(real(RKC)) :: getFunc
3741 type(ninf_type) , intent(in) :: lb
3742 type(pinf_type) , intent(in) :: ub
3743 type(GK51_type) , intent(in) :: qrule
3744 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3745 real(RKC) :: quadGK
3746 end function
3747#endif
3748
3749#if RK2_ENABLED
3750 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3751#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3752 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3753#endif
3754 use pm_kind, only: RKC => RK2
3755 procedure(real(RKC)) :: getFunc
3756 type(ninf_type) , intent(in) :: lb
3757 type(pinf_type) , intent(in) :: ub
3758 type(GK51_type) , intent(in) :: qrule
3759 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3760 real(RKC) :: quadGK
3761 end function
3762#endif
3763
3764#if RK1_ENABLED
3765 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3767 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3768#endif
3769 use pm_kind, only: RKC => RK1
3770 procedure(real(RKC)) :: getFunc
3771 type(ninf_type) , intent(in) :: lb
3772 type(pinf_type) , intent(in) :: ub
3773 type(GK51_type) , intent(in) :: qrule
3774 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3775 real(RKC) :: quadGK
3776 end function
3777#endif
3778
3779 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3780
3781 end interface
3782
3783 ! GK61
3784
3785 interface getQuadGK
3786
3787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788
3789#if RK5_ENABLED
3790 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3792 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3793#endif
3794 use pm_kind, only: RKC => RK5
3795 procedure(real(RKC)) :: getFunc
3796 real(RKC) , intent(in) :: lb
3797 real(RKC) , intent(in) :: ub
3798 type(GK61_type) , intent(in) :: qrule
3799 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3800 real(RKC) :: quadGK
3801 end function
3802#endif
3803
3804#if RK4_ENABLED
3805 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3806#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3807 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3808#endif
3809 use pm_kind, only: RKC => RK4
3810 procedure(real(RKC)) :: getFunc
3811 real(RKC) , intent(in) :: lb
3812 real(RKC) , intent(in) :: ub
3813 type(GK61_type) , intent(in) :: qrule
3814 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3815 real(RKC) :: quadGK
3816 end function
3817#endif
3818
3819#if RK3_ENABLED
3820 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3822 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3823#endif
3824 use pm_kind, only: RKC => RK3
3825 procedure(real(RKC)) :: getFunc
3826 real(RKC) , intent(in) :: lb
3827 real(RKC) , intent(in) :: ub
3828 type(GK61_type) , intent(in) :: qrule
3829 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3830 real(RKC) :: quadGK
3831 end function
3832#endif
3833
3834#if RK2_ENABLED
3835 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3836#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3837 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3838#endif
3839 use pm_kind, only: RKC => RK2
3840 procedure(real(RKC)) :: getFunc
3841 real(RKC) , intent(in) :: lb
3842 real(RKC) , intent(in) :: ub
3843 type(GK61_type) , intent(in) :: qrule
3844 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3845 real(RKC) :: quadGK
3846 end function
3847#endif
3848
3849#if RK1_ENABLED
3850 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3852 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3853#endif
3854 use pm_kind, only: RKC => RK1
3855 procedure(real(RKC)) :: getFunc
3856 real(RKC) , intent(in) :: lb
3857 real(RKC) , intent(in) :: ub
3858 type(GK61_type) , intent(in) :: qrule
3859 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3860 real(RKC) :: quadGK
3861 end function
3862#endif
3863
3864 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3865
3866#if RK5_ENABLED
3867 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3869 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3870#endif
3871 use pm_kind, only: RKC => RK5
3872 procedure(real(RKC)) :: getFunc
3873 real(RKC) , intent(in) :: lb
3874 type(pinf_type) , intent(in) :: ub
3875 type(GK61_type) , intent(in) :: qrule
3876 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3877 real(RKC) :: quadGK
3878 end function
3879#endif
3880
3881#if RK4_ENABLED
3882 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3885#endif
3886 use pm_kind, only: RKC => RK4
3887 procedure(real(RKC)) :: getFunc
3888 real(RKC) , intent(in) :: lb
3889 type(pinf_type) , intent(in) :: ub
3890 type(GK61_type) , intent(in) :: qrule
3891 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3892 real(RKC) :: quadGK
3893 end function
3894#endif
3895
3896#if RK3_ENABLED
3897 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3899 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3900#endif
3901 use pm_kind, only: RKC => RK3
3902 procedure(real(RKC)) :: getFunc
3903 real(RKC) , intent(in) :: lb
3904 type(pinf_type) , intent(in) :: ub
3905 type(GK61_type) , intent(in) :: qrule
3906 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3907 real(RKC) :: quadGK
3908 end function
3909#endif
3910
3911#if RK2_ENABLED
3912 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3914 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3915#endif
3916 use pm_kind, only: RKC => RK2
3917 procedure(real(RKC)) :: getFunc
3918 real(RKC) , intent(in) :: lb
3919 type(pinf_type) , intent(in) :: ub
3920 type(GK61_type) , intent(in) :: qrule
3921 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3922 real(RKC) :: quadGK
3923 end function
3924#endif
3925
3926#if RK1_ENABLED
3927 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3929 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3930#endif
3931 use pm_kind, only: RKC => RK1
3932 procedure(real(RKC)) :: getFunc
3933 real(RKC) , intent(in) :: lb
3934 type(pinf_type) , intent(in) :: ub
3935 type(GK61_type) , intent(in) :: qrule
3936 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3937 real(RKC) :: quadGK
3938 end function
3939#endif
3940
3941 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3942
3943#if RK5_ENABLED
3944 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3946 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
3947#endif
3948 use pm_kind, only: RKC => RK5
3949 procedure(real(RKC)) :: getFunc
3950 type(ninf_type) , intent(in) :: lb
3951 real(RKC) , intent(in) :: ub
3952 type(GK61_type) , intent(in) :: qrule
3953 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3954 real(RKC) :: quadGK
3955 end function
3956#endif
3957
3958#if RK4_ENABLED
3959 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3961 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
3962#endif
3963 use pm_kind, only: RKC => RK4
3964 procedure(real(RKC)) :: getFunc
3965 type(ninf_type) , intent(in) :: lb
3966 real(RKC) , intent(in) :: ub
3967 type(GK61_type) , intent(in) :: qrule
3968 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3969 real(RKC) :: quadGK
3970 end function
3971#endif
3972
3973#if RK3_ENABLED
3974 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3976 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
3977#endif
3978 use pm_kind, only: RKC => RK3
3979 procedure(real(RKC)) :: getFunc
3980 type(ninf_type) , intent(in) :: lb
3981 real(RKC) , intent(in) :: ub
3982 type(GK61_type) , intent(in) :: qrule
3983 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3984 real(RKC) :: quadGK
3985 end function
3986#endif
3987
3988#if RK2_ENABLED
3989 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3991 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
3992#endif
3993 use pm_kind, only: RKC => RK2
3994 procedure(real(RKC)) :: getFunc
3995 type(ninf_type) , intent(in) :: lb
3996 real(RKC) , intent(in) :: ub
3997 type(GK61_type) , intent(in) :: qrule
3998 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3999 real(RKC) :: quadGK
4000 end function
4001#endif
4002
4003#if RK1_ENABLED
4004 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4007#endif
4008 use pm_kind, only: RKC => RK1
4009 procedure(real(RKC)) :: getFunc
4010 type(ninf_type) , intent(in) :: lb
4011 real(RKC) , intent(in) :: ub
4012 type(GK61_type) , intent(in) :: qrule
4013 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4014 real(RKC) :: quadGK
4015 end function
4016#endif
4017
4018 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4019
4020#if RK5_ENABLED
4021 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4023 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4024#endif
4025 use pm_kind, only: RKC => RK5
4026 procedure(real(RKC)) :: getFunc
4027 type(ninf_type) , intent(in) :: lb
4028 type(pinf_type) , intent(in) :: ub
4029 type(GK61_type) , intent(in) :: qrule
4030 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4031 real(RKC) :: quadGK
4032 end function
4033#endif
4034
4035#if RK4_ENABLED
4036 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4038 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4039#endif
4040 use pm_kind, only: RKC => RK4
4041 procedure(real(RKC)) :: getFunc
4042 type(ninf_type) , intent(in) :: lb
4043 type(pinf_type) , intent(in) :: ub
4044 type(GK61_type) , intent(in) :: qrule
4045 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4046 real(RKC) :: quadGK
4047 end function
4048#endif
4049
4050#if RK3_ENABLED
4051 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4053 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4054#endif
4055 use pm_kind, only: RKC => RK3
4056 procedure(real(RKC)) :: getFunc
4057 type(ninf_type) , intent(in) :: lb
4058 type(pinf_type) , intent(in) :: ub
4059 type(GK61_type) , intent(in) :: qrule
4060 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4061 real(RKC) :: quadGK
4062 end function
4063#endif
4064
4065#if RK2_ENABLED
4066 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4068 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4069#endif
4070 use pm_kind, only: RKC => RK2
4071 procedure(real(RKC)) :: getFunc
4072 type(ninf_type) , intent(in) :: lb
4073 type(pinf_type) , intent(in) :: ub
4074 type(GK61_type) , intent(in) :: qrule
4075 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4076 real(RKC) :: quadGK
4077 end function
4078#endif
4079
4080#if RK1_ENABLED
4081 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4083 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4084#endif
4085 use pm_kind, only: RKC => RK1
4086 procedure(real(RKC)) :: getFunc
4087 type(ninf_type) , intent(in) :: lb
4088 type(pinf_type) , intent(in) :: ub
4089 type(GK61_type) , intent(in) :: qrule
4090 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4091 real(RKC) :: quadGK
4092 end function
4093#endif
4094
4095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4096
4097 end interface
4098
4099 ! GKXX
4100
4101 interface getQuadGK
4102
4103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4104
4105#if RK5_ENABLED
4106 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4108 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4109#endif
4110 use pm_kind, only: RKC => RK5
4111 procedure(real(RKC)) :: getFunc
4112 real(RKC) , intent(in) :: lb
4113 real(RKC) , intent(in) :: ub
4114 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4115 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4116 real(RKC) :: quadGK
4117 end function
4118#endif
4119
4120#if RK4_ENABLED
4121 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4123 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4124#endif
4125 use pm_kind, only: RKC => RK4
4126 procedure(real(RKC)) :: getFunc
4127 real(RKC) , intent(in) :: lb
4128 real(RKC) , intent(in) :: ub
4129 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4130 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4131 real(RKC) :: quadGK
4132 end function
4133#endif
4134
4135#if RK3_ENABLED
4136 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4138 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4139#endif
4140 use pm_kind, only: RKC => RK3
4141 procedure(real(RKC)) :: getFunc
4142 real(RKC) , intent(in) :: lb
4143 real(RKC) , intent(in) :: ub
4144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4145 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4146 real(RKC) :: quadGK
4147 end function
4148#endif
4149
4150#if RK2_ENABLED
4151 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4154#endif
4155 use pm_kind, only: RKC => RK2
4156 procedure(real(RKC)) :: getFunc
4157 real(RKC) , intent(in) :: lb
4158 real(RKC) , intent(in) :: ub
4159 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4160 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4161 real(RKC) :: quadGK
4162 end function
4163#endif
4164
4165#if RK1_ENABLED
4166 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4168 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4169#endif
4170 use pm_kind, only: RKC => RK1
4171 procedure(real(RKC)) :: getFunc
4172 real(RKC) , intent(in) :: lb
4173 real(RKC) , intent(in) :: ub
4174 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4175 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4176 real(RKC) :: quadGK
4177 end function
4178#endif
4179
4180 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4181
4182#if RK5_ENABLED
4183 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4184#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4185 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4186#endif
4187 use pm_kind, only: RKC => RK5
4188 procedure(real(RKC)) :: getFunc
4189 real(RKC) , intent(in) :: lb
4190 type(pinf_type) , intent(in) :: ub
4191 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4192 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4193 real(RKC) :: quadGK
4194 end function
4195#endif
4196
4197#if RK4_ENABLED
4198 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4200 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4201#endif
4202 use pm_kind, only: RKC => RK4
4203 procedure(real(RKC)) :: getFunc
4204 real(RKC) , intent(in) :: lb
4205 type(pinf_type) , intent(in) :: ub
4206 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4207 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4208 real(RKC) :: quadGK
4209 end function
4210#endif
4211
4212#if RK3_ENABLED
4213 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4215 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4216#endif
4217 use pm_kind, only: RKC => RK3
4218 procedure(real(RKC)) :: getFunc
4219 real(RKC) , intent(in) :: lb
4220 type(pinf_type) , intent(in) :: ub
4221 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4222 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4223 real(RKC) :: quadGK
4224 end function
4225#endif
4226
4227#if RK2_ENABLED
4228 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4230 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4231#endif
4232 use pm_kind, only: RKC => RK2
4233 procedure(real(RKC)) :: getFunc
4234 real(RKC) , intent(in) :: lb
4235 type(pinf_type) , intent(in) :: ub
4236 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4237 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4238 real(RKC) :: quadGK
4239 end function
4240#endif
4241
4242#if RK1_ENABLED
4243 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4244#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4245 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4246#endif
4247 use pm_kind, only: RKC => RK1
4248 procedure(real(RKC)) :: getFunc
4249 real(RKC) , intent(in) :: lb
4250 type(pinf_type) , intent(in) :: ub
4251 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4252 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4253 real(RKC) :: quadGK
4254 end function
4255#endif
4256
4257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4258
4259#if RK5_ENABLED
4260 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4262 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4263#endif
4264 use pm_kind, only: RKC => RK5
4265 procedure(real(RKC)) :: getFunc
4266 type(ninf_type) , intent(in) :: lb
4267 real(RKC) , intent(in) :: ub
4268 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4269 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4270 real(RKC) :: quadGK
4271 end function
4272#endif
4273
4274#if RK4_ENABLED
4275 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4277 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4278#endif
4279 use pm_kind, only: RKC => RK4
4280 procedure(real(RKC)) :: getFunc
4281 type(ninf_type) , intent(in) :: lb
4282 real(RKC) , intent(in) :: ub
4283 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4284 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4285 real(RKC) :: quadGK
4286 end function
4287#endif
4288
4289#if RK3_ENABLED
4290 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4293#endif
4294 use pm_kind, only: RKC => RK3
4295 procedure(real(RKC)) :: getFunc
4296 type(ninf_type) , intent(in) :: lb
4297 real(RKC) , intent(in) :: ub
4298 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4299 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4300 real(RKC) :: quadGK
4301 end function
4302#endif
4303
4304#if RK2_ENABLED
4305 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4307 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4308#endif
4309 use pm_kind, only: RKC => RK2
4310 procedure(real(RKC)) :: getFunc
4311 type(ninf_type) , intent(in) :: lb
4312 real(RKC) , intent(in) :: ub
4313 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4314 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4315 real(RKC) :: quadGK
4316 end function
4317#endif
4318
4319#if RK1_ENABLED
4320 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4323#endif
4324 use pm_kind, only: RKC => RK1
4325 procedure(real(RKC)) :: getFunc
4326 type(ninf_type) , intent(in) :: lb
4327 real(RKC) , intent(in) :: ub
4328 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4329 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4330 real(RKC) :: quadGK
4331 end function
4332#endif
4333
4334 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335
4336#if RK5_ENABLED
4337 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4340#endif
4341 use pm_kind, only: RKC => RK5
4342 procedure(real(RKC)) :: getFunc
4343 type(ninf_type) , intent(in) :: lb
4344 type(pinf_type) , intent(in) :: ub
4345 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4347 real(RKC) :: quadGK
4348 end function
4349#endif
4350
4351#if RK4_ENABLED
4352 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4354 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4355#endif
4356 use pm_kind, only: RKC => RK4
4357 procedure(real(RKC)) :: getFunc
4358 type(ninf_type) , intent(in) :: lb
4359 type(pinf_type) , intent(in) :: ub
4360 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4361 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4362 real(RKC) :: quadGK
4363 end function
4364#endif
4365
4366#if RK3_ENABLED
4367 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4368#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4369 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4370#endif
4371 use pm_kind, only: RKC => RK3
4372 procedure(real(RKC)) :: getFunc
4373 type(ninf_type) , intent(in) :: lb
4374 type(pinf_type) , intent(in) :: ub
4375 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4376 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4377 real(RKC) :: quadGK
4378 end function
4379#endif
4380
4381#if RK2_ENABLED
4382 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4384 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4385#endif
4386 use pm_kind, only: RKC => RK2
4387 procedure(real(RKC)) :: getFunc
4388 type(ninf_type) , intent(in) :: lb
4389 type(pinf_type) , intent(in) :: ub
4390 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4391 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4392 real(RKC) :: quadGK
4393 end function
4394#endif
4395
4396#if RK1_ENABLED
4397 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4398#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4399 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4400#endif
4401 use pm_kind, only: RKC => RK1
4402 procedure(real(RKC)) :: getFunc
4403 type(ninf_type) , intent(in) :: lb
4404 type(pinf_type) , intent(in) :: ub
4405 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4406 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4407 real(RKC) :: quadGK
4408 end function
4409#endif
4410
4411 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4412
4413 end interface
4414
4415!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4416
4435 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4437
4465 type :: weps_type
4466 end type
4467
4486 type(weps_type) , parameter :: weps = weps_type()
4487
4488!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4489
4531 interface setSeqLimEps
4532
4533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4534
4535#if RK5_ENABLED
4536 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4538 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4539#endif
4540 use pm_kind, only: RKC => RK5
4541 integer(IK) , intent(inout) :: inew, ical
4542 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4543 real(RKC) , intent(out) :: seqlim, abserr
4544 end subroutine
4545#endif
4546
4547#if RK4_ENABLED
4548 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4550 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4551#endif
4552 use pm_kind, only: RKC => RK4
4553 integer(IK) , intent(inout) :: inew, ical
4554 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4555 real(RKC) , intent(out) :: seqlim, abserr
4556 end subroutine
4557#endif
4558
4559#if RK3_ENABLED
4560 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4562 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4563#endif
4564 use pm_kind, only: RKC => RK3
4565 integer(IK) , intent(inout) :: inew, ical
4566 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4567 real(RKC) , intent(out) :: seqlim, abserr
4568 end subroutine
4569#endif
4570
4571#if RK2_ENABLED
4572 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4574 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4575#endif
4576 use pm_kind, only: RKC => RK2
4577 integer(IK) , intent(inout) :: inew, ical
4578 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4579 real(RKC) , intent(out) :: seqlim, abserr
4580 end subroutine
4581#endif
4582
4583#if RK1_ENABLED
4584 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4586 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4587#endif
4588 use pm_kind, only: RKC => RK1
4589 integer(IK) , intent(inout) :: inew, ical
4590 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4591 real(RKC) , intent(out) :: seqlim, abserr
4592 end subroutine
4593#endif
4594
4595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4596
4597 end interface
4598
4599!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4600
4644 interface setErrSorted
4645
4646 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4647
4648#if RK5_ENABLED
4649 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4651 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4652#endif
4653 use pm_kind, only: RKC => RK5
4654 integer(IK) , intent(in) :: nintmax
4655 real(RKC) , intent(in) :: sinfoErr(:)
4656 integer(IK) , intent(inout) , contiguous :: sindex(:)
4657 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4658 real(RKC) , intent(out) :: maxErrVal
4659 end subroutine
4660#endif
4661
4662#if RK4_ENABLED
4663 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4665 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4666#endif
4667 use pm_kind, only: RKC => RK4
4668 integer(IK) , intent(in) :: nintmax
4669 real(RKC) , intent(in) :: sinfoErr(:)
4670 integer(IK) , intent(inout) , contiguous :: sindex(:)
4671 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4672 real(RKC) , intent(out) :: maxErrVal
4673 end subroutine
4674#endif
4675
4676#if RK3_ENABLED
4677 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4679 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4680#endif
4681 use pm_kind, only: RKC => RK3
4682 integer(IK) , intent(in) :: nintmax
4683 real(RKC) , intent(in) :: sinfoErr(:)
4684 integer(IK) , intent(inout) , contiguous :: sindex(:)
4685 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4686 real(RKC) , intent(out) :: maxErrVal
4687 end subroutine
4688#endif
4689
4690#if RK2_ENABLED
4691 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4693 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4694#endif
4695 use pm_kind, only: RKC => RK2
4696 integer(IK) , intent(in) :: nintmax
4697 real(RKC) , intent(in) :: sinfoErr(:)
4698 integer(IK) , intent(inout) , contiguous :: sindex(:)
4699 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4700 real(RKC) , intent(out) :: maxErrVal
4701 end subroutine
4702#endif
4703
4704#if RK1_ENABLED
4705 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4708#endif
4709 use pm_kind, only: RKC => RK1
4710 integer(IK) , intent(in) :: nintmax
4711 real(RKC) , intent(in) :: sinfoErr(:)
4712 integer(IK) , intent(inout) , contiguous :: sindex(:)
4713 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4714 real(RKC) , intent(out) :: maxErrVal
4715 end subroutine
4716#endif
4717
4718 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4719
4720 end interface
4721
4722!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4723
4770 interface setChebExpan
4771
4772 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4773
4774#if RK5_ENABLED
4775 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4777 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4778#endif
4779 use pm_kind, only: RKC => RK5
4780 real(RKC) , intent(inout) :: func(25)
4781 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4782 end subroutine
4783#endif
4784
4785#if RK4_ENABLED
4786 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4788 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4789#endif
4790 use pm_kind, only: RKC => RK4
4791 real(RKC) , intent(inout) :: func(25)
4792 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4793 end subroutine
4794#endif
4795
4796#if RK3_ENABLED
4797 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4799 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4800#endif
4801 use pm_kind, only: RKC => RK3
4802 real(RKC) , intent(inout) :: func(25)
4803 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4804 end subroutine
4805#endif
4806
4807#if RK2_ENABLED
4808 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4810 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4811#endif
4812 use pm_kind, only: RKC => RK2
4813 real(RKC) , intent(inout) :: func(25)
4814 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4815 end subroutine
4816#endif
4817
4818#if RK1_ENABLED
4819 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4821 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4822#endif
4823 use pm_kind, only: RKC => RK1
4824 real(RKC) , intent(inout) :: func(25)
4825 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4826 end subroutine
4827#endif
4828
4829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4830
4831 end interface
4832
4833!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4834
4921 interface isFailedQuad
4922
4923 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4924
4925#if RK5_ENABLED
4926 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4928 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4929#endif
4930 use pm_kind, only: RKC => RK5
4931 procedure(real(RKC)) :: getFunc
4932 real(RKC) , intent(in) :: lb, ub
4933 real(RKC) , intent(out) :: integral
4934 real(RKC) , intent(out) , optional :: abserr
4935 real(RKC) , intent(in) , optional :: abstol
4936 real(RKC) , intent(in) , optional :: reltol
4937 integer(IK) , intent(out) , optional :: neval
4938 integer(IK) , intent(out) , optional :: nint
4939 character(*, SK) , intent(out) , optional :: msg
4940 logical(LK) :: failed
4941 end function
4942#endif
4943
4944#if RK4_ENABLED
4945 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4946#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4947 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
4948#endif
4949 use pm_kind, only: RKC => RK4
4950 procedure(real(RKC)) :: getFunc
4951 real(RKC) , intent(in) :: lb, ub
4952 real(RKC) , intent(out) :: integral
4953 real(RKC) , intent(out) , optional :: abserr
4954 real(RKC) , intent(in) , optional :: abstol
4955 real(RKC) , intent(in) , optional :: reltol
4956 integer(IK) , intent(out) , optional :: neval
4957 integer(IK) , intent(out) , optional :: nint
4958 character(*, SK) , intent(out) , optional :: msg
4959 logical(LK) :: failed
4960 end function
4961#endif
4962
4963#if RK3_ENABLED
4964 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4966 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
4967#endif
4968 use pm_kind, only: RKC => RK3
4969 procedure(real(RKC)) :: getFunc
4970 real(RKC) , intent(in) :: lb, ub
4971 real(RKC) , intent(out) :: integral
4972 real(RKC) , intent(out) , optional :: abserr
4973 real(RKC) , intent(in) , optional :: abstol
4974 real(RKC) , intent(in) , optional :: reltol
4975 integer(IK) , intent(out) , optional :: neval
4976 integer(IK) , intent(out) , optional :: nint
4977 character(*, SK) , intent(out) , optional :: msg
4978 logical(LK) :: failed
4979 end function
4980#endif
4981
4982#if RK2_ENABLED
4983 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4985 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
4986#endif
4987 use pm_kind, only: RKC => RK2
4988 procedure(real(RKC)) :: getFunc
4989 real(RKC) , intent(in) :: lb, ub
4990 real(RKC) , intent(out) :: integral
4991 real(RKC) , intent(out) , optional :: abserr
4992 real(RKC) , intent(in) , optional :: abstol
4993 real(RKC) , intent(in) , optional :: reltol
4994 integer(IK) , intent(out) , optional :: neval
4995 integer(IK) , intent(out) , optional :: nint
4996 character(*, SK) , intent(out) , optional :: msg
4997 logical(LK) :: failed
4998 end function
4999#endif
5000
5001#if RK1_ENABLED
5002 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5004 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5005#endif
5006 use pm_kind, only: RKC => RK1
5007 procedure(real(RKC)) :: getFunc
5008 real(RKC) , intent(in) :: lb, ub
5009 real(RKC) , intent(out) :: integral
5010 real(RKC) , intent(out) , optional :: abserr
5011 real(RKC) , intent(in) , optional :: abstol
5012 real(RKC) , intent(in) , optional :: reltol
5013 integer(IK) , intent(out) , optional :: neval
5014 integer(IK) , intent(out) , optional :: nint
5015 character(*, SK) , intent(out) , optional :: msg
5016 logical(LK) :: failed
5017 end function
5018#endif
5019
5020 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5021
5022#if RK5_ENABLED
5023 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5025 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5026#endif
5027 use pm_kind, only: RKC => RK5
5028 procedure(real(RKC)) :: getFunc
5029 real(RKC) , intent(in) :: lb, ub
5030 real(RKC) , intent(out) :: integral
5031 type(weps_type) , intent(in) :: help
5032 real(RKC) , intent(out) , optional :: abserr
5033 real(RKC) , intent(in) , optional :: abstol
5034 real(RKC) , intent(in) , optional :: reltol
5035 integer(IK) , intent(out) , optional :: neval
5036 integer(IK) , intent(out) , optional :: nint
5037 character(*, SK) , intent(out) , optional :: msg
5038 logical(LK) :: failed
5039 end function
5040#endif
5041
5042#if RK4_ENABLED
5043 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5045 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5046#endif
5047 use pm_kind, only: RKC => RK4
5048 procedure(real(RKC)) :: getFunc
5049 real(RKC) , intent(in) :: lb, ub
5050 real(RKC) , intent(out) :: integral
5051 type(weps_type) , intent(in) :: help
5052 real(RKC) , intent(out) , optional :: abserr
5053 real(RKC) , intent(in) , optional :: abstol
5054 real(RKC) , intent(in) , optional :: reltol
5055 integer(IK) , intent(out) , optional :: neval
5056 integer(IK) , intent(out) , optional :: nint
5057 character(*, SK) , intent(out) , optional :: msg
5058 logical(LK) :: failed
5059 end function
5060#endif
5061
5062#if RK3_ENABLED
5063 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5065 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5066#endif
5067 use pm_kind, only: RKC => RK3
5068 procedure(real(RKC)) :: getFunc
5069 real(RKC) , intent(in) :: lb, ub
5070 real(RKC) , intent(out) :: integral
5071 type(weps_type) , intent(in) :: help
5072 real(RKC) , intent(out) , optional :: abserr
5073 real(RKC) , intent(in) , optional :: abstol
5074 real(RKC) , intent(in) , optional :: reltol
5075 integer(IK) , intent(out) , optional :: neval
5076 integer(IK) , intent(out) , optional :: nint
5077 character(*, SK) , intent(out) , optional :: msg
5078 logical(LK) :: failed
5079 end function
5080#endif
5081
5082#if RK2_ENABLED
5083 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5085 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5086#endif
5087 use pm_kind, only: RKC => RK2
5088 procedure(real(RKC)) :: getFunc
5089 real(RKC) , intent(in) :: lb, ub
5090 real(RKC) , intent(out) :: integral
5091 type(weps_type) , intent(in) :: help
5092 real(RKC) , intent(out) , optional :: abserr
5093 real(RKC) , intent(in) , optional :: abstol
5094 real(RKC) , intent(in) , optional :: reltol
5095 integer(IK) , intent(out) , optional :: neval
5096 integer(IK) , intent(out) , optional :: nint
5097 character(*, SK) , intent(out) , optional :: msg
5098 logical(LK) :: failed
5099 end function
5100#endif
5101
5102#if RK1_ENABLED
5103 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5105 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5106#endif
5107 use pm_kind, only: RKC => RK1
5108 procedure(real(RKC)) :: getFunc
5109 real(RKC) , intent(in) :: lb, ub
5110 real(RKC) , intent(out) :: integral
5111 type(weps_type) , intent(in) :: help
5112 real(RKC) , intent(out) , optional :: abserr
5113 real(RKC) , intent(in) , optional :: abstol
5114 real(RKC) , intent(in) , optional :: reltol
5115 integer(IK) , intent(out) , optional :: neval
5116 integer(IK) , intent(out) , optional :: nint
5117 character(*, SK) , intent(out) , optional :: msg
5118 logical(LK) :: failed
5119 end function
5120#endif
5121
5122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5123
5124#if RK5_ENABLED
5125 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5127 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5128#endif
5129 use pm_kind, only: RKC => RK5
5130 procedure(real(RKC)) :: getFunc
5131 real(RKC) , intent(in) :: lb, ub
5132 real(RKC) , intent(out) :: integral
5133 real(RKC) , intent(in) , contiguous :: help(:)
5134 real(RKC) , intent(out) , optional :: abserr
5135 real(RKC) , intent(in) , optional :: abstol
5136 real(RKC) , intent(in) , optional :: reltol
5137 integer(IK) , intent(out) , optional :: neval
5138 integer(IK) , intent(out) , optional :: nint
5139 character(*, SK) , intent(out) , optional :: msg
5140 logical(LK) :: failed
5141 end function
5142#endif
5143
5144#if RK4_ENABLED
5145 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5147 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5148#endif
5149 use pm_kind, only: RKC => RK4
5150 procedure(real(RKC)) :: getFunc
5151 real(RKC) , intent(in) :: lb, ub
5152 real(RKC) , intent(out) :: integral
5153 real(RKC) , intent(in) , contiguous :: help(:)
5154 real(RKC) , intent(out) , optional :: abserr
5155 real(RKC) , intent(in) , optional :: abstol
5156 real(RKC) , intent(in) , optional :: reltol
5157 integer(IK) , intent(out) , optional :: neval
5158 integer(IK) , intent(out) , optional :: nint
5159 character(*, SK) , intent(out) , optional :: msg
5160 logical(LK) :: failed
5161 end function
5162#endif
5163
5164#if RK3_ENABLED
5165 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5166#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5167 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5168#endif
5169 use pm_kind, only: RKC => RK3
5170 procedure(real(RKC)) :: getFunc
5171 real(RKC) , intent(in) :: lb, ub
5172 real(RKC) , intent(out) :: integral
5173 real(RKC) , intent(in) , contiguous :: help(:)
5174 real(RKC) , intent(out) , optional :: abserr
5175 real(RKC) , intent(in) , optional :: abstol
5176 real(RKC) , intent(in) , optional :: reltol
5177 integer(IK) , intent(out) , optional :: neval
5178 integer(IK) , intent(out) , optional :: nint
5179 character(*, SK) , intent(out) , optional :: msg
5180 logical(LK) :: failed
5181 end function
5182#endif
5183
5184#if RK2_ENABLED
5185 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5187 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5188#endif
5189 use pm_kind, only: RKC => RK2
5190 procedure(real(RKC)) :: getFunc
5191 real(RKC) , intent(in) :: lb, ub
5192 real(RKC) , intent(out) :: integral
5193 real(RKC) , intent(in) , contiguous :: help(:)
5194 real(RKC) , intent(out) , optional :: abserr
5195 real(RKC) , intent(in) , optional :: abstol
5196 real(RKC) , intent(in) , optional :: reltol
5197 integer(IK) , intent(out) , optional :: neval
5198 integer(IK) , intent(out) , optional :: nint
5199 character(*, SK) , intent(out) , optional :: msg
5200 logical(LK) :: failed
5201 end function
5202#endif
5203
5204#if RK1_ENABLED
5205 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5207 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5208#endif
5209 use pm_kind, only: RKC => RK1
5210 procedure(real(RKC)) :: getFunc
5211 real(RKC) , intent(in) :: lb, ub
5212 real(RKC) , intent(out) :: integral
5213 real(RKC) , intent(in) , contiguous :: help(:)
5214 real(RKC) , intent(out) , optional :: abserr
5215 real(RKC) , intent(in) , optional :: abstol
5216 real(RKC) , intent(in) , optional :: reltol
5217 integer(IK) , intent(out) , optional :: neval
5218 integer(IK) , intent(out) , optional :: nint
5219 character(*, SK) , intent(out) , optional :: msg
5220 logical(LK) :: failed
5221 end function
5222#endif
5223
5224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5225
5226#if RK5_ENABLED
5227 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5229 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5230#endif
5231 use pm_kind, only: RKC => RK5
5232 procedure(real(RKC)) :: getFunc
5233 real(RKC) , intent(in) :: lb, ub
5234 real(RKC) , intent(out) :: integral
5235 type(wcauchy_type) , intent(in) :: help
5236 real(RKC) , intent(out) , optional :: abserr
5237 real(RKC) , intent(in) , optional :: abstol
5238 real(RKC) , intent(in) , optional :: reltol
5239 integer(IK) , intent(out) , optional :: neval
5240 integer(IK) , intent(out) , optional :: nint
5241 character(*, SK) , intent(out) , optional :: msg
5242 logical(LK) :: failed
5243 end function
5244#endif
5245
5246#if RK4_ENABLED
5247 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5249 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5250#endif
5251 use pm_kind, only: RKC => RK4
5252 procedure(real(RKC)) :: getFunc
5253 real(RKC) , intent(in) :: lb, ub
5254 real(RKC) , intent(out) :: integral
5255 type(wcauchy_type) , intent(in) :: help
5256 real(RKC) , intent(out) , optional :: abserr
5257 real(RKC) , intent(in) , optional :: abstol
5258 real(RKC) , intent(in) , optional :: reltol
5259 integer(IK) , intent(out) , optional :: neval
5260 integer(IK) , intent(out) , optional :: nint
5261 character(*, SK) , intent(out) , optional :: msg
5262 logical(LK) :: failed
5263 end function
5264#endif
5265
5266#if RK3_ENABLED
5267 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5268#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5269 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5270#endif
5271 use pm_kind, only: RKC => RK3
5272 procedure(real(RKC)) :: getFunc
5273 real(RKC) , intent(in) :: lb, ub
5274 real(RKC) , intent(out) :: integral
5275 type(wcauchy_type) , intent(in) :: help
5276 real(RKC) , intent(out) , optional :: abserr
5277 real(RKC) , intent(in) , optional :: abstol
5278 real(RKC) , intent(in) , optional :: reltol
5279 integer(IK) , intent(out) , optional :: neval
5280 integer(IK) , intent(out) , optional :: nint
5281 character(*, SK) , intent(out) , optional :: msg
5282 logical(LK) :: failed
5283 end function
5284#endif
5285
5286#if RK2_ENABLED
5287 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5288#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5289 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5290#endif
5291 use pm_kind, only: RKC => RK2
5292 procedure(real(RKC)) :: getFunc
5293 real(RKC) , intent(in) :: lb, ub
5294 real(RKC) , intent(out) :: integral
5295 type(wcauchy_type) , intent(in) :: help
5296 real(RKC) , intent(out) , optional :: abserr
5297 real(RKC) , intent(in) , optional :: abstol
5298 real(RKC) , intent(in) , optional :: reltol
5299 integer(IK) , intent(out) , optional :: neval
5300 integer(IK) , intent(out) , optional :: nint
5301 character(*, SK) , intent(out) , optional :: msg
5302 logical(LK) :: failed
5303 end function
5304#endif
5305
5306#if RK1_ENABLED
5307 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5309 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5310#endif
5311 use pm_kind, only: RKC => RK1
5312 procedure(real(RKC)) :: getFunc
5313 real(RKC) , intent(in) :: lb, ub
5314 real(RKC) , intent(out) :: integral
5315 type(wcauchy_type) , intent(in) :: help
5316 real(RKC) , intent(out) , optional :: abserr
5317 real(RKC) , intent(in) , optional :: abstol
5318 real(RKC) , intent(in) , optional :: reltol
5319 integer(IK) , intent(out) , optional :: neval
5320 integer(IK) , intent(out) , optional :: nint
5321 character(*, SK) , intent(out) , optional :: msg
5322 logical(LK) :: failed
5323 end function
5324#endif
5325
5326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5327
5328 end interface
5329
5330!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5331
5568
5569!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5570
5571 ! QAGD_GK15
5572
5573 interface getQuadErr
5574
5575 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5576
5577#if RK5_ENABLED
5578 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5581#endif
5582 use pm_kind, only: RKC => RK5
5583 procedure(real(RKC)) :: getFunc
5584 real(RKC) , intent(in) :: lb
5585 real(RKC) , intent(in) :: ub
5586 real(RKC) , intent(in) :: abstol
5587 real(RKC) , intent(in) :: reltol
5588 type(GK15_type) , intent(in) :: qrule
5589 real(RKC) , intent(out) :: integral, abserr
5590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5591 integer(IK) , intent(out) , contiguous :: sindex(:)
5592 integer(IK) , intent(out) :: neval
5593 integer(IK) , intent(out) :: nint
5594 integer(IK) :: err
5595 end function
5596#endif
5597
5598#if RK4_ENABLED
5599 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5602#endif
5603 use pm_kind, only: RKC => RK4
5604 procedure(real(RKC)) :: getFunc
5605 real(RKC) , intent(in) :: lb
5606 real(RKC) , intent(in) :: ub
5607 real(RKC) , intent(in) :: abstol
5608 real(RKC) , intent(in) :: reltol
5609 type(GK15_type) , intent(in) :: qrule
5610 real(RKC) , intent(out) :: integral, abserr
5611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5612 integer(IK) , intent(out) , contiguous :: sindex(:)
5613 integer(IK) , intent(out) :: neval
5614 integer(IK) , intent(out) :: nint
5615 integer(IK) :: err
5616 end function
5617#endif
5618
5619#if RK3_ENABLED
5620 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5623#endif
5624 use pm_kind, only: RKC => RK3
5625 procedure(real(RKC)) :: getFunc
5626 real(RKC) , intent(in) :: lb
5627 real(RKC) , intent(in) :: ub
5628 real(RKC) , intent(in) :: abstol
5629 real(RKC) , intent(in) :: reltol
5630 type(GK15_type) , intent(in) :: qrule
5631 real(RKC) , intent(out) :: integral, abserr
5632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5633 integer(IK) , intent(out) , contiguous :: sindex(:)
5634 integer(IK) , intent(out) :: neval
5635 integer(IK) , intent(out) :: nint
5636 integer(IK) :: err
5637 end function
5638#endif
5639
5640#if RK2_ENABLED
5641 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5644#endif
5645 use pm_kind, only: RKC => RK2
5646 procedure(real(RKC)) :: getFunc
5647 real(RKC) , intent(in) :: lb
5648 real(RKC) , intent(in) :: ub
5649 real(RKC) , intent(in) :: abstol
5650 real(RKC) , intent(in) :: reltol
5651 type(GK15_type) , intent(in) :: qrule
5652 real(RKC) , intent(out) :: integral, abserr
5653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5654 integer(IK) , intent(out) , contiguous :: sindex(:)
5655 integer(IK) , intent(out) :: neval
5656 integer(IK) , intent(out) :: nint
5657 integer(IK) :: err
5658 end function
5659#endif
5660
5661#if RK1_ENABLED
5662 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5665#endif
5666 use pm_kind, only: RKC => RK1
5667 procedure(real(RKC)) :: getFunc
5668 real(RKC) , intent(in) :: lb
5669 real(RKC) , intent(in) :: ub
5670 real(RKC) , intent(in) :: abstol
5671 real(RKC) , intent(in) :: reltol
5672 type(GK15_type) , intent(in) :: qrule
5673 real(RKC) , intent(out) :: integral, abserr
5674 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5675 integer(IK) , intent(out) , contiguous :: sindex(:)
5676 integer(IK) , intent(out) :: neval
5677 integer(IK) , intent(out) :: nint
5678 integer(IK) :: err
5679 end function
5680#endif
5681
5682 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5683
5684#if RK5_ENABLED
5685 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5688#endif
5689 use pm_kind, only: RKC => RK5
5690 procedure(real(RKC)) :: getFunc
5691 real(RKC) , intent(in) :: lb
5692 type(pinf_type) , intent(in) :: ub
5693 real(RKC) , intent(in) :: abstol
5694 real(RKC) , intent(in) :: reltol
5695 type(GK15_type) , intent(in) :: qrule
5696 real(RKC) , intent(out) :: integral, abserr
5697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5698 integer(IK) , intent(out) , contiguous :: sindex(:)
5699 integer(IK) , intent(out) :: neval
5700 integer(IK) , intent(out) :: nint
5701 integer(IK) :: err
5702 end function
5703#endif
5704
5705#if RK4_ENABLED
5706 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5709#endif
5710 use pm_kind, only: RKC => RK4
5711 procedure(real(RKC)) :: getFunc
5712 real(RKC) , intent(in) :: lb
5713 type(pinf_type) , intent(in) :: ub
5714 real(RKC) , intent(in) :: abstol
5715 real(RKC) , intent(in) :: reltol
5716 type(GK15_type) , intent(in) :: qrule
5717 real(RKC) , intent(out) :: integral, abserr
5718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5719 integer(IK) , intent(out) , contiguous :: sindex(:)
5720 integer(IK) , intent(out) :: neval
5721 integer(IK) , intent(out) :: nint
5722 integer(IK) :: err
5723 end function
5724#endif
5725
5726#if RK3_ENABLED
5727 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5730#endif
5731 use pm_kind, only: RKC => RK3
5732 procedure(real(RKC)) :: getFunc
5733 real(RKC) , intent(in) :: lb
5734 type(pinf_type) , intent(in) :: ub
5735 real(RKC) , intent(in) :: abstol
5736 real(RKC) , intent(in) :: reltol
5737 type(GK15_type) , intent(in) :: qrule
5738 real(RKC) , intent(out) :: integral, abserr
5739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5740 integer(IK) , intent(out) , contiguous :: sindex(:)
5741 integer(IK) , intent(out) :: neval
5742 integer(IK) , intent(out) :: nint
5743 integer(IK) :: err
5744 end function
5745#endif
5746
5747#if RK2_ENABLED
5748 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5751#endif
5752 use pm_kind, only: RKC => RK2
5753 procedure(real(RKC)) :: getFunc
5754 real(RKC) , intent(in) :: lb
5755 type(pinf_type) , intent(in) :: ub
5756 real(RKC) , intent(in) :: abstol
5757 real(RKC) , intent(in) :: reltol
5758 type(GK15_type) , intent(in) :: qrule
5759 real(RKC) , intent(out) :: integral, abserr
5760 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5761 integer(IK) , intent(out) , contiguous :: sindex(:)
5762 integer(IK) , intent(out) :: neval
5763 integer(IK) , intent(out) :: nint
5764 integer(IK) :: err
5765 end function
5766#endif
5767
5768#if RK1_ENABLED
5769 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5770#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5771 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5772#endif
5773 use pm_kind, only: RKC => RK1
5774 procedure(real(RKC)) :: getFunc
5775 real(RKC) , intent(in) :: lb
5776 type(pinf_type) , intent(in) :: ub
5777 real(RKC) , intent(in) :: abstol
5778 real(RKC) , intent(in) :: reltol
5779 type(GK15_type) , intent(in) :: qrule
5780 real(RKC) , intent(out) :: integral, abserr
5781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5782 integer(IK) , intent(out) , contiguous :: sindex(:)
5783 integer(IK) , intent(out) :: neval
5784 integer(IK) , intent(out) :: nint
5785 integer(IK) :: err
5786 end function
5787#endif
5788
5789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5790
5791#if RK5_ENABLED
5792 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5795#endif
5796 use pm_kind, only: RKC => RK5
5797 procedure(real(RKC)) :: getFunc
5798 type(ninf_type) , intent(in) :: lb
5799 real(RKC) , intent(in) :: ub
5800 real(RKC) , intent(in) :: abstol
5801 real(RKC) , intent(in) :: reltol
5802 type(GK15_type) , intent(in) :: qrule
5803 real(RKC) , intent(out) :: integral, abserr
5804 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5805 integer(IK) , intent(out) , contiguous :: sindex(:)
5806 integer(IK) , intent(out) :: neval
5807 integer(IK) , intent(out) :: nint
5808 integer(IK) :: err
5809 end function
5810#endif
5811
5812#if RK4_ENABLED
5813 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5816#endif
5817 use pm_kind, only: RKC => RK4
5818 procedure(real(RKC)) :: getFunc
5819 type(ninf_type) , intent(in) :: lb
5820 real(RKC) , intent(in) :: ub
5821 real(RKC) , intent(in) :: abstol
5822 real(RKC) , intent(in) :: reltol
5823 type(GK15_type) , intent(in) :: qrule
5824 real(RKC) , intent(out) :: integral, abserr
5825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5826 integer(IK) , intent(out) , contiguous :: sindex(:)
5827 integer(IK) , intent(out) :: neval
5828 integer(IK) , intent(out) :: nint
5829 integer(IK) :: err
5830 end function
5831#endif
5832
5833#if RK3_ENABLED
5834 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5837#endif
5838 use pm_kind, only: RKC => RK3
5839 procedure(real(RKC)) :: getFunc
5840 type(ninf_type) , intent(in) :: lb
5841 real(RKC) , intent(in) :: ub
5842 real(RKC) , intent(in) :: abstol
5843 real(RKC) , intent(in) :: reltol
5844 type(GK15_type) , intent(in) :: qrule
5845 real(RKC) , intent(out) :: integral, abserr
5846 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5847 integer(IK) , intent(out) , contiguous :: sindex(:)
5848 integer(IK) , intent(out) :: neval
5849 integer(IK) , intent(out) :: nint
5850 integer(IK) :: err
5851 end function
5852#endif
5853
5854#if RK2_ENABLED
5855 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5858#endif
5859 use pm_kind, only: RKC => RK2
5860 procedure(real(RKC)) :: getFunc
5861 type(ninf_type) , intent(in) :: lb
5862 real(RKC) , intent(in) :: ub
5863 real(RKC) , intent(in) :: abstol
5864 real(RKC) , intent(in) :: reltol
5865 type(GK15_type) , intent(in) :: qrule
5866 real(RKC) , intent(out) :: integral, abserr
5867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5868 integer(IK) , intent(out) , contiguous :: sindex(:)
5869 integer(IK) , intent(out) :: neval
5870 integer(IK) , intent(out) :: nint
5871 integer(IK) :: err
5872 end function
5873#endif
5874
5875#if RK1_ENABLED
5876 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5879#endif
5880 use pm_kind, only: RKC => RK1
5881 procedure(real(RKC)) :: getFunc
5882 type(ninf_type) , intent(in) :: lb
5883 real(RKC) , intent(in) :: ub
5884 real(RKC) , intent(in) :: abstol
5885 real(RKC) , intent(in) :: reltol
5886 type(GK15_type) , intent(in) :: qrule
5887 real(RKC) , intent(out) :: integral, abserr
5888 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5889 integer(IK) , intent(out) , contiguous :: sindex(:)
5890 integer(IK) , intent(out) :: neval
5891 integer(IK) , intent(out) :: nint
5892 integer(IK) :: err
5893 end function
5894#endif
5895
5896 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5897
5898#if RK5_ENABLED
5899 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5901 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5902#endif
5903 use pm_kind, only: RKC => RK5
5904 procedure(real(RKC)) :: getFunc
5905 type(ninf_type) , intent(in) :: lb
5906 type(pinf_type) , intent(in) :: ub
5907 real(RKC) , intent(in) :: abstol
5908 real(RKC) , intent(in) :: reltol
5909 type(GK15_type) , intent(in) :: qrule
5910 real(RKC) , intent(out) :: integral, abserr
5911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5912 integer(IK) , intent(out) , contiguous :: sindex(:)
5913 integer(IK) , intent(out) :: neval
5914 integer(IK) , intent(out) :: nint
5915 integer(IK) :: err
5916 end function
5917#endif
5918
5919#if RK4_ENABLED
5920 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5923#endif
5924 use pm_kind, only: RKC => RK4
5925 procedure(real(RKC)) :: getFunc
5926 type(ninf_type) , intent(in) :: lb
5927 type(pinf_type) , intent(in) :: ub
5928 real(RKC) , intent(in) :: abstol
5929 real(RKC) , intent(in) :: reltol
5930 type(GK15_type) , intent(in) :: qrule
5931 real(RKC) , intent(out) :: integral, abserr
5932 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5933 integer(IK) , intent(out) , contiguous :: sindex(:)
5934 integer(IK) , intent(out) :: neval
5935 integer(IK) , intent(out) :: nint
5936 integer(IK) :: err
5937 end function
5938#endif
5939
5940#if RK3_ENABLED
5941 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5943 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
5944#endif
5945 use pm_kind, only: RKC => RK3
5946 procedure(real(RKC)) :: getFunc
5947 type(ninf_type) , intent(in) :: lb
5948 type(pinf_type) , intent(in) :: ub
5949 real(RKC) , intent(in) :: abstol
5950 real(RKC) , intent(in) :: reltol
5951 type(GK15_type) , intent(in) :: qrule
5952 real(RKC) , intent(out) :: integral, abserr
5953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5954 integer(IK) , intent(out) , contiguous :: sindex(:)
5955 integer(IK) , intent(out) :: neval
5956 integer(IK) , intent(out) :: nint
5957 integer(IK) :: err
5958 end function
5959#endif
5960
5961#if RK2_ENABLED
5962 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
5965#endif
5966 use pm_kind, only: RKC => RK2
5967 procedure(real(RKC)) :: getFunc
5968 type(ninf_type) , intent(in) :: lb
5969 type(pinf_type) , intent(in) :: ub
5970 real(RKC) , intent(in) :: abstol
5971 real(RKC) , intent(in) :: reltol
5972 type(GK15_type) , intent(in) :: qrule
5973 real(RKC) , intent(out) :: integral, abserr
5974 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5975 integer(IK) , intent(out) , contiguous :: sindex(:)
5976 integer(IK) , intent(out) :: neval
5977 integer(IK) , intent(out) :: nint
5978 integer(IK) :: err
5979 end function
5980#endif
5981
5982#if RK1_ENABLED
5983 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5985 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
5986#endif
5987 use pm_kind, only: RKC => RK1
5988 procedure(real(RKC)) :: getFunc
5989 type(ninf_type) , intent(in) :: lb
5990 type(pinf_type) , intent(in) :: ub
5991 real(RKC) , intent(in) :: abstol
5992 real(RKC) , intent(in) :: reltol
5993 type(GK15_type) , intent(in) :: qrule
5994 real(RKC) , intent(out) :: integral, abserr
5995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5996 integer(IK) , intent(out) , contiguous :: sindex(:)
5997 integer(IK) , intent(out) :: neval
5998 integer(IK) , intent(out) :: nint
5999 integer(IK) :: err
6000 end function
6001#endif
6002
6003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6004
6005 end interface
6006
6007 ! QAGD_GK21
6008
6009 interface getQuadErr
6010
6011 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6012
6013#if RK5_ENABLED
6014 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6017#endif
6018 use pm_kind, only: RKC => RK5
6019 procedure(real(RKC)) :: getFunc
6020 real(RKC) , intent(in) :: lb
6021 real(RKC) , intent(in) :: ub
6022 real(RKC) , intent(in) :: abstol
6023 real(RKC) , intent(in) :: reltol
6024 type(GK21_type) , intent(in) :: qrule
6025 real(RKC) , intent(out) :: integral, abserr
6026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6027 integer(IK) , intent(out) , contiguous :: sindex(:)
6028 integer(IK) , intent(out) :: neval
6029 integer(IK) , intent(out) :: nint
6030 integer(IK) :: err
6031 end function
6032#endif
6033
6034#if RK4_ENABLED
6035 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6038#endif
6039 use pm_kind, only: RKC => RK4
6040 procedure(real(RKC)) :: getFunc
6041 real(RKC) , intent(in) :: lb
6042 real(RKC) , intent(in) :: ub
6043 real(RKC) , intent(in) :: abstol
6044 real(RKC) , intent(in) :: reltol
6045 type(GK21_type) , intent(in) :: qrule
6046 real(RKC) , intent(out) :: integral, abserr
6047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6048 integer(IK) , intent(out) , contiguous :: sindex(:)
6049 integer(IK) , intent(out) :: neval
6050 integer(IK) , intent(out) :: nint
6051 integer(IK) :: err
6052 end function
6053#endif
6054
6055#if RK3_ENABLED
6056 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6059#endif
6060 use pm_kind, only: RKC => RK3
6061 procedure(real(RKC)) :: getFunc
6062 real(RKC) , intent(in) :: lb
6063 real(RKC) , intent(in) :: ub
6064 real(RKC) , intent(in) :: abstol
6065 real(RKC) , intent(in) :: reltol
6066 type(GK21_type) , intent(in) :: qrule
6067 real(RKC) , intent(out) :: integral, abserr
6068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6069 integer(IK) , intent(out) , contiguous :: sindex(:)
6070 integer(IK) , intent(out) :: neval
6071 integer(IK) , intent(out) :: nint
6072 integer(IK) :: err
6073 end function
6074#endif
6075
6076#if RK2_ENABLED
6077 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6080#endif
6081 use pm_kind, only: RKC => RK2
6082 procedure(real(RKC)) :: getFunc
6083 real(RKC) , intent(in) :: lb
6084 real(RKC) , intent(in) :: ub
6085 real(RKC) , intent(in) :: abstol
6086 real(RKC) , intent(in) :: reltol
6087 type(GK21_type) , intent(in) :: qrule
6088 real(RKC) , intent(out) :: integral, abserr
6089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6090 integer(IK) , intent(out) , contiguous :: sindex(:)
6091 integer(IK) , intent(out) :: neval
6092 integer(IK) , intent(out) :: nint
6093 integer(IK) :: err
6094 end function
6095#endif
6096
6097#if RK1_ENABLED
6098 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6101#endif
6102 use pm_kind, only: RKC => RK1
6103 procedure(real(RKC)) :: getFunc
6104 real(RKC) , intent(in) :: lb
6105 real(RKC) , intent(in) :: ub
6106 real(RKC) , intent(in) :: abstol
6107 real(RKC) , intent(in) :: reltol
6108 type(GK21_type) , intent(in) :: qrule
6109 real(RKC) , intent(out) :: integral, abserr
6110 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6111 integer(IK) , intent(out) , contiguous :: sindex(:)
6112 integer(IK) , intent(out) :: neval
6113 integer(IK) , intent(out) :: nint
6114 integer(IK) :: err
6115 end function
6116#endif
6117
6118 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6119
6120#if RK5_ENABLED
6121 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6124#endif
6125 use pm_kind, only: RKC => RK5
6126 procedure(real(RKC)) :: getFunc
6127 real(RKC) , intent(in) :: lb
6128 type(pinf_type) , intent(in) :: ub
6129 real(RKC) , intent(in) :: abstol
6130 real(RKC) , intent(in) :: reltol
6131 type(GK21_type) , intent(in) :: qrule
6132 real(RKC) , intent(out) :: integral, abserr
6133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6134 integer(IK) , intent(out) , contiguous :: sindex(:)
6135 integer(IK) , intent(out) :: neval
6136 integer(IK) , intent(out) :: nint
6137 integer(IK) :: err
6138 end function
6139#endif
6140
6141#if RK4_ENABLED
6142 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6145#endif
6146 use pm_kind, only: RKC => RK4
6147 procedure(real(RKC)) :: getFunc
6148 real(RKC) , intent(in) :: lb
6149 type(pinf_type) , intent(in) :: ub
6150 real(RKC) , intent(in) :: abstol
6151 real(RKC) , intent(in) :: reltol
6152 type(GK21_type) , intent(in) :: qrule
6153 real(RKC) , intent(out) :: integral, abserr
6154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6155 integer(IK) , intent(out) , contiguous :: sindex(:)
6156 integer(IK) , intent(out) :: neval
6157 integer(IK) , intent(out) :: nint
6158 integer(IK) :: err
6159 end function
6160#endif
6161
6162#if RK3_ENABLED
6163 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6166#endif
6167 use pm_kind, only: RKC => RK3
6168 procedure(real(RKC)) :: getFunc
6169 real(RKC) , intent(in) :: lb
6170 type(pinf_type) , intent(in) :: ub
6171 real(RKC) , intent(in) :: abstol
6172 real(RKC) , intent(in) :: reltol
6173 type(GK21_type) , intent(in) :: qrule
6174 real(RKC) , intent(out) :: integral, abserr
6175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6176 integer(IK) , intent(out) , contiguous :: sindex(:)
6177 integer(IK) , intent(out) :: neval
6178 integer(IK) , intent(out) :: nint
6179 integer(IK) :: err
6180 end function
6181#endif
6182
6183#if RK2_ENABLED
6184 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6187#endif
6188 use pm_kind, only: RKC => RK2
6189 procedure(real(RKC)) :: getFunc
6190 real(RKC) , intent(in) :: lb
6191 type(pinf_type) , intent(in) :: ub
6192 real(RKC) , intent(in) :: abstol
6193 real(RKC) , intent(in) :: reltol
6194 type(GK21_type) , intent(in) :: qrule
6195 real(RKC) , intent(out) :: integral, abserr
6196 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6197 integer(IK) , intent(out) , contiguous :: sindex(:)
6198 integer(IK) , intent(out) :: neval
6199 integer(IK) , intent(out) :: nint
6200 integer(IK) :: err
6201 end function
6202#endif
6203
6204#if RK1_ENABLED
6205 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6207 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6208#endif
6209 use pm_kind, only: RKC => RK1
6210 procedure(real(RKC)) :: getFunc
6211 real(RKC) , intent(in) :: lb
6212 type(pinf_type) , intent(in) :: ub
6213 real(RKC) , intent(in) :: abstol
6214 real(RKC) , intent(in) :: reltol
6215 type(GK21_type) , intent(in) :: qrule
6216 real(RKC) , intent(out) :: integral, abserr
6217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6218 integer(IK) , intent(out) , contiguous :: sindex(:)
6219 integer(IK) , intent(out) :: neval
6220 integer(IK) , intent(out) :: nint
6221 integer(IK) :: err
6222 end function
6223#endif
6224
6225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6226
6227#if RK5_ENABLED
6228 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6231#endif
6232 use pm_kind, only: RKC => RK5
6233 procedure(real(RKC)) :: getFunc
6234 type(ninf_type) , intent(in) :: lb
6235 real(RKC) , intent(in) :: ub
6236 real(RKC) , intent(in) :: abstol
6237 real(RKC) , intent(in) :: reltol
6238 type(GK21_type) , intent(in) :: qrule
6239 real(RKC) , intent(out) :: integral, abserr
6240 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6241 integer(IK) , intent(out) , contiguous :: sindex(:)
6242 integer(IK) , intent(out) :: neval
6243 integer(IK) , intent(out) :: nint
6244 integer(IK) :: err
6245 end function
6246#endif
6247
6248#if RK4_ENABLED
6249 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6252#endif
6253 use pm_kind, only: RKC => RK4
6254 procedure(real(RKC)) :: getFunc
6255 type(ninf_type) , intent(in) :: lb
6256 real(RKC) , intent(in) :: ub
6257 real(RKC) , intent(in) :: abstol
6258 real(RKC) , intent(in) :: reltol
6259 type(GK21_type) , intent(in) :: qrule
6260 real(RKC) , intent(out) :: integral, abserr
6261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6262 integer(IK) , intent(out) , contiguous :: sindex(:)
6263 integer(IK) , intent(out) :: neval
6264 integer(IK) , intent(out) :: nint
6265 integer(IK) :: err
6266 end function
6267#endif
6268
6269#if RK3_ENABLED
6270 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6273#endif
6274 use pm_kind, only: RKC => RK3
6275 procedure(real(RKC)) :: getFunc
6276 type(ninf_type) , intent(in) :: lb
6277 real(RKC) , intent(in) :: ub
6278 real(RKC) , intent(in) :: abstol
6279 real(RKC) , intent(in) :: reltol
6280 type(GK21_type) , intent(in) :: qrule
6281 real(RKC) , intent(out) :: integral, abserr
6282 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6283 integer(IK) , intent(out) , contiguous :: sindex(:)
6284 integer(IK) , intent(out) :: neval
6285 integer(IK) , intent(out) :: nint
6286 integer(IK) :: err
6287 end function
6288#endif
6289
6290#if RK2_ENABLED
6291 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6294#endif
6295 use pm_kind, only: RKC => RK2
6296 procedure(real(RKC)) :: getFunc
6297 type(ninf_type) , intent(in) :: lb
6298 real(RKC) , intent(in) :: ub
6299 real(RKC) , intent(in) :: abstol
6300 real(RKC) , intent(in) :: reltol
6301 type(GK21_type) , intent(in) :: qrule
6302 real(RKC) , intent(out) :: integral, abserr
6303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6304 integer(IK) , intent(out) , contiguous :: sindex(:)
6305 integer(IK) , intent(out) :: neval
6306 integer(IK) , intent(out) :: nint
6307 integer(IK) :: err
6308 end function
6309#endif
6310
6311#if RK1_ENABLED
6312 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6315#endif
6316 use pm_kind, only: RKC => RK1
6317 procedure(real(RKC)) :: getFunc
6318 type(ninf_type) , intent(in) :: lb
6319 real(RKC) , intent(in) :: ub
6320 real(RKC) , intent(in) :: abstol
6321 real(RKC) , intent(in) :: reltol
6322 type(GK21_type) , intent(in) :: qrule
6323 real(RKC) , intent(out) :: integral, abserr
6324 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6325 integer(IK) , intent(out) , contiguous :: sindex(:)
6326 integer(IK) , intent(out) :: neval
6327 integer(IK) , intent(out) :: nint
6328 integer(IK) :: err
6329 end function
6330#endif
6331
6332 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6333
6334#if RK5_ENABLED
6335 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6337 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6338#endif
6339 use pm_kind, only: RKC => RK5
6340 procedure(real(RKC)) :: getFunc
6341 type(ninf_type) , intent(in) :: lb
6342 type(pinf_type) , intent(in) :: ub
6343 real(RKC) , intent(in) :: abstol
6344 real(RKC) , intent(in) :: reltol
6345 type(GK21_type) , intent(in) :: qrule
6346 real(RKC) , intent(out) :: integral, abserr
6347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6348 integer(IK) , intent(out) , contiguous :: sindex(:)
6349 integer(IK) , intent(out) :: neval
6350 integer(IK) , intent(out) :: nint
6351 integer(IK) :: err
6352 end function
6353#endif
6354
6355#if RK4_ENABLED
6356 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6359#endif
6360 use pm_kind, only: RKC => RK4
6361 procedure(real(RKC)) :: getFunc
6362 type(ninf_type) , intent(in) :: lb
6363 type(pinf_type) , intent(in) :: ub
6364 real(RKC) , intent(in) :: abstol
6365 real(RKC) , intent(in) :: reltol
6366 type(GK21_type) , intent(in) :: qrule
6367 real(RKC) , intent(out) :: integral, abserr
6368 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6369 integer(IK) , intent(out) , contiguous :: sindex(:)
6370 integer(IK) , intent(out) :: neval
6371 integer(IK) , intent(out) :: nint
6372 integer(IK) :: err
6373 end function
6374#endif
6375
6376#if RK3_ENABLED
6377 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6379 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6380#endif
6381 use pm_kind, only: RKC => RK3
6382 procedure(real(RKC)) :: getFunc
6383 type(ninf_type) , intent(in) :: lb
6384 type(pinf_type) , intent(in) :: ub
6385 real(RKC) , intent(in) :: abstol
6386 real(RKC) , intent(in) :: reltol
6387 type(GK21_type) , intent(in) :: qrule
6388 real(RKC) , intent(out) :: integral, abserr
6389 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6390 integer(IK) , intent(out) , contiguous :: sindex(:)
6391 integer(IK) , intent(out) :: neval
6392 integer(IK) , intent(out) :: nint
6393 integer(IK) :: err
6394 end function
6395#endif
6396
6397#if RK2_ENABLED
6398 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6401#endif
6402 use pm_kind, only: RKC => RK2
6403 procedure(real(RKC)) :: getFunc
6404 type(ninf_type) , intent(in) :: lb
6405 type(pinf_type) , intent(in) :: ub
6406 real(RKC) , intent(in) :: abstol
6407 real(RKC) , intent(in) :: reltol
6408 type(GK21_type) , intent(in) :: qrule
6409 real(RKC) , intent(out) :: integral, abserr
6410 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6411 integer(IK) , intent(out) , contiguous :: sindex(:)
6412 integer(IK) , intent(out) :: neval
6413 integer(IK) , intent(out) :: nint
6414 integer(IK) :: err
6415 end function
6416#endif
6417
6418#if RK1_ENABLED
6419 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6421 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6422#endif
6423 use pm_kind, only: RKC => RK1
6424 procedure(real(RKC)) :: getFunc
6425 type(ninf_type) , intent(in) :: lb
6426 type(pinf_type) , intent(in) :: ub
6427 real(RKC) , intent(in) :: abstol
6428 real(RKC) , intent(in) :: reltol
6429 type(GK21_type) , intent(in) :: qrule
6430 real(RKC) , intent(out) :: integral, abserr
6431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6432 integer(IK) , intent(out) , contiguous :: sindex(:)
6433 integer(IK) , intent(out) :: neval
6434 integer(IK) , intent(out) :: nint
6435 integer(IK) :: err
6436 end function
6437#endif
6438
6439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6440
6441 end interface
6442
6443 ! QAGD_GK31
6444
6445 interface getQuadErr
6446
6447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6448
6449#if RK5_ENABLED
6450 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6453#endif
6454 use pm_kind, only: RKC => RK5
6455 procedure(real(RKC)) :: getFunc
6456 real(RKC) , intent(in) :: lb
6457 real(RKC) , intent(in) :: ub
6458 real(RKC) , intent(in) :: abstol
6459 real(RKC) , intent(in) :: reltol
6460 type(GK31_type) , intent(in) :: qrule
6461 real(RKC) , intent(out) :: integral, abserr
6462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6463 integer(IK) , intent(out) , contiguous :: sindex(:)
6464 integer(IK) , intent(out) :: neval
6465 integer(IK) , intent(out) :: nint
6466 integer(IK) :: err
6467 end function
6468#endif
6469
6470#if RK4_ENABLED
6471 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6474#endif
6475 use pm_kind, only: RKC => RK4
6476 procedure(real(RKC)) :: getFunc
6477 real(RKC) , intent(in) :: lb
6478 real(RKC) , intent(in) :: ub
6479 real(RKC) , intent(in) :: abstol
6480 real(RKC) , intent(in) :: reltol
6481 type(GK31_type) , intent(in) :: qrule
6482 real(RKC) , intent(out) :: integral, abserr
6483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6484 integer(IK) , intent(out) , contiguous :: sindex(:)
6485 integer(IK) , intent(out) :: neval
6486 integer(IK) , intent(out) :: nint
6487 integer(IK) :: err
6488 end function
6489#endif
6490
6491#if RK3_ENABLED
6492 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6495#endif
6496 use pm_kind, only: RKC => RK3
6497 procedure(real(RKC)) :: getFunc
6498 real(RKC) , intent(in) :: lb
6499 real(RKC) , intent(in) :: ub
6500 real(RKC) , intent(in) :: abstol
6501 real(RKC) , intent(in) :: reltol
6502 type(GK31_type) , intent(in) :: qrule
6503 real(RKC) , intent(out) :: integral, abserr
6504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6505 integer(IK) , intent(out) , contiguous :: sindex(:)
6506 integer(IK) , intent(out) :: neval
6507 integer(IK) , intent(out) :: nint
6508 integer(IK) :: err
6509 end function
6510#endif
6511
6512#if RK2_ENABLED
6513 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6516#endif
6517 use pm_kind, only: RKC => RK2
6518 procedure(real(RKC)) :: getFunc
6519 real(RKC) , intent(in) :: lb
6520 real(RKC) , intent(in) :: ub
6521 real(RKC) , intent(in) :: abstol
6522 real(RKC) , intent(in) :: reltol
6523 type(GK31_type) , intent(in) :: qrule
6524 real(RKC) , intent(out) :: integral, abserr
6525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6526 integer(IK) , intent(out) , contiguous :: sindex(:)
6527 integer(IK) , intent(out) :: neval
6528 integer(IK) , intent(out) :: nint
6529 integer(IK) :: err
6530 end function
6531#endif
6532
6533#if RK1_ENABLED
6534 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6536 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6537#endif
6538 use pm_kind, only: RKC => RK1
6539 procedure(real(RKC)) :: getFunc
6540 real(RKC) , intent(in) :: lb
6541 real(RKC) , intent(in) :: ub
6542 real(RKC) , intent(in) :: abstol
6543 real(RKC) , intent(in) :: reltol
6544 type(GK31_type) , intent(in) :: qrule
6545 real(RKC) , intent(out) :: integral, abserr
6546 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6547 integer(IK) , intent(out) , contiguous :: sindex(:)
6548 integer(IK) , intent(out) :: neval
6549 integer(IK) , intent(out) :: nint
6550 integer(IK) :: err
6551 end function
6552#endif
6553
6554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6555
6556#if RK5_ENABLED
6557 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6560#endif
6561 use pm_kind, only: RKC => RK5
6562 procedure(real(RKC)) :: getFunc
6563 real(RKC) , intent(in) :: lb
6564 type(pinf_type) , intent(in) :: ub
6565 real(RKC) , intent(in) :: abstol
6566 real(RKC) , intent(in) :: reltol
6567 type(GK31_type) , intent(in) :: qrule
6568 real(RKC) , intent(out) :: integral, abserr
6569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6570 integer(IK) , intent(out) , contiguous :: sindex(:)
6571 integer(IK) , intent(out) :: neval
6572 integer(IK) , intent(out) :: nint
6573 integer(IK) :: err
6574 end function
6575#endif
6576
6577#if RK4_ENABLED
6578 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6581#endif
6582 use pm_kind, only: RKC => RK4
6583 procedure(real(RKC)) :: getFunc
6584 real(RKC) , intent(in) :: lb
6585 type(pinf_type) , intent(in) :: ub
6586 real(RKC) , intent(in) :: abstol
6587 real(RKC) , intent(in) :: reltol
6588 type(GK31_type) , intent(in) :: qrule
6589 real(RKC) , intent(out) :: integral, abserr
6590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6591 integer(IK) , intent(out) , contiguous :: sindex(:)
6592 integer(IK) , intent(out) :: neval
6593 integer(IK) , intent(out) :: nint
6594 integer(IK) :: err
6595 end function
6596#endif
6597
6598#if RK3_ENABLED
6599 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6602#endif
6603 use pm_kind, only: RKC => RK3
6604 procedure(real(RKC)) :: getFunc
6605 real(RKC) , intent(in) :: lb
6606 type(pinf_type) , intent(in) :: ub
6607 real(RKC) , intent(in) :: abstol
6608 real(RKC) , intent(in) :: reltol
6609 type(GK31_type) , intent(in) :: qrule
6610 real(RKC) , intent(out) :: integral, abserr
6611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6612 integer(IK) , intent(out) , contiguous :: sindex(:)
6613 integer(IK) , intent(out) :: neval
6614 integer(IK) , intent(out) :: nint
6615 integer(IK) :: err
6616 end function
6617#endif
6618
6619#if RK2_ENABLED
6620 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6623#endif
6624 use pm_kind, only: RKC => RK2
6625 procedure(real(RKC)) :: getFunc
6626 real(RKC) , intent(in) :: lb
6627 type(pinf_type) , intent(in) :: ub
6628 real(RKC) , intent(in) :: abstol
6629 real(RKC) , intent(in) :: reltol
6630 type(GK31_type) , intent(in) :: qrule
6631 real(RKC) , intent(out) :: integral, abserr
6632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6633 integer(IK) , intent(out) , contiguous :: sindex(:)
6634 integer(IK) , intent(out) :: neval
6635 integer(IK) , intent(out) :: nint
6636 integer(IK) :: err
6637 end function
6638#endif
6639
6640#if RK1_ENABLED
6641 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6642#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6643 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6644#endif
6645 use pm_kind, only: RKC => RK1
6646 procedure(real(RKC)) :: getFunc
6647 real(RKC) , intent(in) :: lb
6648 type(pinf_type) , intent(in) :: ub
6649 real(RKC) , intent(in) :: abstol
6650 real(RKC) , intent(in) :: reltol
6651 type(GK31_type) , intent(in) :: qrule
6652 real(RKC) , intent(out) :: integral, abserr
6653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6654 integer(IK) , intent(out) , contiguous :: sindex(:)
6655 integer(IK) , intent(out) :: neval
6656 integer(IK) , intent(out) :: nint
6657 integer(IK) :: err
6658 end function
6659#endif
6660
6661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6662
6663#if RK5_ENABLED
6664 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6667#endif
6668 use pm_kind, only: RKC => RK5
6669 procedure(real(RKC)) :: getFunc
6670 type(ninf_type) , intent(in) :: lb
6671 real(RKC) , intent(in) :: ub
6672 real(RKC) , intent(in) :: abstol
6673 real(RKC) , intent(in) :: reltol
6674 type(GK31_type) , intent(in) :: qrule
6675 real(RKC) , intent(out) :: integral, abserr
6676 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6677 integer(IK) , intent(out) , contiguous :: sindex(:)
6678 integer(IK) , intent(out) :: neval
6679 integer(IK) , intent(out) :: nint
6680 integer(IK) :: err
6681 end function
6682#endif
6683
6684#if RK4_ENABLED
6685 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6688#endif
6689 use pm_kind, only: RKC => RK4
6690 procedure(real(RKC)) :: getFunc
6691 type(ninf_type) , intent(in) :: lb
6692 real(RKC) , intent(in) :: ub
6693 real(RKC) , intent(in) :: abstol
6694 real(RKC) , intent(in) :: reltol
6695 type(GK31_type) , intent(in) :: qrule
6696 real(RKC) , intent(out) :: integral, abserr
6697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6698 integer(IK) , intent(out) , contiguous :: sindex(:)
6699 integer(IK) , intent(out) :: neval
6700 integer(IK) , intent(out) :: nint
6701 integer(IK) :: err
6702 end function
6703#endif
6704
6705#if RK3_ENABLED
6706 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6709#endif
6710 use pm_kind, only: RKC => RK3
6711 procedure(real(RKC)) :: getFunc
6712 type(ninf_type) , intent(in) :: lb
6713 real(RKC) , intent(in) :: ub
6714 real(RKC) , intent(in) :: abstol
6715 real(RKC) , intent(in) :: reltol
6716 type(GK31_type) , intent(in) :: qrule
6717 real(RKC) , intent(out) :: integral, abserr
6718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6719 integer(IK) , intent(out) , contiguous :: sindex(:)
6720 integer(IK) , intent(out) :: neval
6721 integer(IK) , intent(out) :: nint
6722 integer(IK) :: err
6723 end function
6724#endif
6725
6726#if RK2_ENABLED
6727 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6730#endif
6731 use pm_kind, only: RKC => RK2
6732 procedure(real(RKC)) :: getFunc
6733 type(ninf_type) , intent(in) :: lb
6734 real(RKC) , intent(in) :: ub
6735 real(RKC) , intent(in) :: abstol
6736 real(RKC) , intent(in) :: reltol
6737 type(GK31_type) , intent(in) :: qrule
6738 real(RKC) , intent(out) :: integral, abserr
6739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6740 integer(IK) , intent(out) , contiguous :: sindex(:)
6741 integer(IK) , intent(out) :: neval
6742 integer(IK) , intent(out) :: nint
6743 integer(IK) :: err
6744 end function
6745#endif
6746
6747#if RK1_ENABLED
6748 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6751#endif
6752 use pm_kind, only: RKC => RK1
6753 procedure(real(RKC)) :: getFunc
6754 type(ninf_type) , intent(in) :: lb
6755 real(RKC) , intent(in) :: ub
6756 real(RKC) , intent(in) :: abstol
6757 real(RKC) , intent(in) :: reltol
6758 type(GK31_type) , intent(in) :: qrule
6759 real(RKC) , intent(out) :: integral, abserr
6760 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6761 integer(IK) , intent(out) , contiguous :: sindex(:)
6762 integer(IK) , intent(out) :: neval
6763 integer(IK) , intent(out) :: nint
6764 integer(IK) :: err
6765 end function
6766#endif
6767
6768 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6769
6770#if RK5_ENABLED
6771 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6772#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6773 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6774#endif
6775 use pm_kind, only: RKC => RK5
6776 procedure(real(RKC)) :: getFunc
6777 type(ninf_type) , intent(in) :: lb
6778 type(pinf_type) , intent(in) :: ub
6779 real(RKC) , intent(in) :: abstol
6780 real(RKC) , intent(in) :: reltol
6781 type(GK31_type) , intent(in) :: qrule
6782 real(RKC) , intent(out) :: integral, abserr
6783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6784 integer(IK) , intent(out) , contiguous :: sindex(:)
6785 integer(IK) , intent(out) :: neval
6786 integer(IK) , intent(out) :: nint
6787 integer(IK) :: err
6788 end function
6789#endif
6790
6791#if RK4_ENABLED
6792 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6795#endif
6796 use pm_kind, only: RKC => RK4
6797 procedure(real(RKC)) :: getFunc
6798 type(ninf_type) , intent(in) :: lb
6799 type(pinf_type) , intent(in) :: ub
6800 real(RKC) , intent(in) :: abstol
6801 real(RKC) , intent(in) :: reltol
6802 type(GK31_type) , intent(in) :: qrule
6803 real(RKC) , intent(out) :: integral, abserr
6804 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6805 integer(IK) , intent(out) , contiguous :: sindex(:)
6806 integer(IK) , intent(out) :: neval
6807 integer(IK) , intent(out) :: nint
6808 integer(IK) :: err
6809 end function
6810#endif
6811
6812#if RK3_ENABLED
6813 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6815 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6816#endif
6817 use pm_kind, only: RKC => RK3
6818 procedure(real(RKC)) :: getFunc
6819 type(ninf_type) , intent(in) :: lb
6820 type(pinf_type) , intent(in) :: ub
6821 real(RKC) , intent(in) :: abstol
6822 real(RKC) , intent(in) :: reltol
6823 type(GK31_type) , intent(in) :: qrule
6824 real(RKC) , intent(out) :: integral, abserr
6825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6826 integer(IK) , intent(out) , contiguous :: sindex(:)
6827 integer(IK) , intent(out) :: neval
6828 integer(IK) , intent(out) :: nint
6829 integer(IK) :: err
6830 end function
6831#endif
6832
6833#if RK2_ENABLED
6834 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6837#endif
6838 use pm_kind, only: RKC => RK2
6839 procedure(real(RKC)) :: getFunc
6840 type(ninf_type) , intent(in) :: lb
6841 type(pinf_type) , intent(in) :: ub
6842 real(RKC) , intent(in) :: abstol
6843 real(RKC) , intent(in) :: reltol
6844 type(GK31_type) , intent(in) :: qrule
6845 real(RKC) , intent(out) :: integral, abserr
6846 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6847 integer(IK) , intent(out) , contiguous :: sindex(:)
6848 integer(IK) , intent(out) :: neval
6849 integer(IK) , intent(out) :: nint
6850 integer(IK) :: err
6851 end function
6852#endif
6853
6854#if RK1_ENABLED
6855 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6856#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6857 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6858#endif
6859 use pm_kind, only: RKC => RK1
6860 procedure(real(RKC)) :: getFunc
6861 type(ninf_type) , intent(in) :: lb
6862 type(pinf_type) , intent(in) :: ub
6863 real(RKC) , intent(in) :: abstol
6864 real(RKC) , intent(in) :: reltol
6865 type(GK31_type) , intent(in) :: qrule
6866 real(RKC) , intent(out) :: integral, abserr
6867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6868 integer(IK) , intent(out) , contiguous :: sindex(:)
6869 integer(IK) , intent(out) :: neval
6870 integer(IK) , intent(out) :: nint
6871 integer(IK) :: err
6872 end function
6873#endif
6874
6875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6876
6877 end interface
6878
6879 ! QAGD_GK41
6880
6881 interface getQuadErr
6882
6883 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6884
6885#if RK5_ENABLED
6886 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6889#endif
6890 use pm_kind, only: RKC => RK5
6891 procedure(real(RKC)) :: getFunc
6892 real(RKC) , intent(in) :: lb
6893 real(RKC) , intent(in) :: ub
6894 real(RKC) , intent(in) :: abstol
6895 real(RKC) , intent(in) :: reltol
6896 type(GK41_type) , intent(in) :: qrule
6897 real(RKC) , intent(out) :: integral, abserr
6898 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6899 integer(IK) , intent(out) , contiguous :: sindex(:)
6900 integer(IK) , intent(out) :: neval
6901 integer(IK) , intent(out) :: nint
6902 integer(IK) :: err
6903 end function
6904#endif
6905
6906#if RK4_ENABLED
6907 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6910#endif
6911 use pm_kind, only: RKC => RK4
6912 procedure(real(RKC)) :: getFunc
6913 real(RKC) , intent(in) :: lb
6914 real(RKC) , intent(in) :: ub
6915 real(RKC) , intent(in) :: abstol
6916 real(RKC) , intent(in) :: reltol
6917 type(GK41_type) , intent(in) :: qrule
6918 real(RKC) , intent(out) :: integral, abserr
6919 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6920 integer(IK) , intent(out) , contiguous :: sindex(:)
6921 integer(IK) , intent(out) :: neval
6922 integer(IK) , intent(out) :: nint
6923 integer(IK) :: err
6924 end function
6925#endif
6926
6927#if RK3_ENABLED
6928 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6931#endif
6932 use pm_kind, only: RKC => RK3
6933 procedure(real(RKC)) :: getFunc
6934 real(RKC) , intent(in) :: lb
6935 real(RKC) , intent(in) :: ub
6936 real(RKC) , intent(in) :: abstol
6937 real(RKC) , intent(in) :: reltol
6938 type(GK41_type) , intent(in) :: qrule
6939 real(RKC) , intent(out) :: integral, abserr
6940 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6941 integer(IK) , intent(out) , contiguous :: sindex(:)
6942 integer(IK) , intent(out) :: neval
6943 integer(IK) , intent(out) :: nint
6944 integer(IK) :: err
6945 end function
6946#endif
6947
6948#if RK2_ENABLED
6949 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
6952#endif
6953 use pm_kind, only: RKC => RK2
6954 procedure(real(RKC)) :: getFunc
6955 real(RKC) , intent(in) :: lb
6956 real(RKC) , intent(in) :: ub
6957 real(RKC) , intent(in) :: abstol
6958 real(RKC) , intent(in) :: reltol
6959 type(GK41_type) , intent(in) :: qrule
6960 real(RKC) , intent(out) :: integral, abserr
6961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6962 integer(IK) , intent(out) , contiguous :: sindex(:)
6963 integer(IK) , intent(out) :: neval
6964 integer(IK) , intent(out) :: nint
6965 integer(IK) :: err
6966 end function
6967#endif
6968
6969#if RK1_ENABLED
6970 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
6973#endif
6974 use pm_kind, only: RKC => RK1
6975 procedure(real(RKC)) :: getFunc
6976 real(RKC) , intent(in) :: lb
6977 real(RKC) , intent(in) :: ub
6978 real(RKC) , intent(in) :: abstol
6979 real(RKC) , intent(in) :: reltol
6980 type(GK41_type) , intent(in) :: qrule
6981 real(RKC) , intent(out) :: integral, abserr
6982 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6983 integer(IK) , intent(out) , contiguous :: sindex(:)
6984 integer(IK) , intent(out) :: neval
6985 integer(IK) , intent(out) :: nint
6986 integer(IK) :: err
6987 end function
6988#endif
6989
6990 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6991
6992#if RK5_ENABLED
6993 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
6996#endif
6997 use pm_kind, only: RKC => RK5
6998 procedure(real(RKC)) :: getFunc
6999 real(RKC) , intent(in) :: lb
7000 type(pinf_type) , intent(in) :: ub
7001 real(RKC) , intent(in) :: abstol
7002 real(RKC) , intent(in) :: reltol
7003 type(GK41_type) , intent(in) :: qrule
7004 real(RKC) , intent(out) :: integral, abserr
7005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7006 integer(IK) , intent(out) , contiguous :: sindex(:)
7007 integer(IK) , intent(out) :: neval
7008 integer(IK) , intent(out) :: nint
7009 integer(IK) :: err
7010 end function
7011#endif
7012
7013#if RK4_ENABLED
7014 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7017#endif
7018 use pm_kind, only: RKC => RK4
7019 procedure(real(RKC)) :: getFunc
7020 real(RKC) , intent(in) :: lb
7021 type(pinf_type) , intent(in) :: ub
7022 real(RKC) , intent(in) :: abstol
7023 real(RKC) , intent(in) :: reltol
7024 type(GK41_type) , intent(in) :: qrule
7025 real(RKC) , intent(out) :: integral, abserr
7026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7027 integer(IK) , intent(out) , contiguous :: sindex(:)
7028 integer(IK) , intent(out) :: neval
7029 integer(IK) , intent(out) :: nint
7030 integer(IK) :: err
7031 end function
7032#endif
7033
7034#if RK3_ENABLED
7035 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7038#endif
7039 use pm_kind, only: RKC => RK3
7040 procedure(real(RKC)) :: getFunc
7041 real(RKC) , intent(in) :: lb
7042 type(pinf_type) , intent(in) :: ub
7043 real(RKC) , intent(in) :: abstol
7044 real(RKC) , intent(in) :: reltol
7045 type(GK41_type) , intent(in) :: qrule
7046 real(RKC) , intent(out) :: integral, abserr
7047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7048 integer(IK) , intent(out) , contiguous :: sindex(:)
7049 integer(IK) , intent(out) :: neval
7050 integer(IK) , intent(out) :: nint
7051 integer(IK) :: err
7052 end function
7053#endif
7054
7055#if RK2_ENABLED
7056 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7059#endif
7060 use pm_kind, only: RKC => RK2
7061 procedure(real(RKC)) :: getFunc
7062 real(RKC) , intent(in) :: lb
7063 type(pinf_type) , intent(in) :: ub
7064 real(RKC) , intent(in) :: abstol
7065 real(RKC) , intent(in) :: reltol
7066 type(GK41_type) , intent(in) :: qrule
7067 real(RKC) , intent(out) :: integral, abserr
7068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7069 integer(IK) , intent(out) , contiguous :: sindex(:)
7070 integer(IK) , intent(out) :: neval
7071 integer(IK) , intent(out) :: nint
7072 integer(IK) :: err
7073 end function
7074#endif
7075
7076#if RK1_ENABLED
7077 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7078#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7079 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7080#endif
7081 use pm_kind, only: RKC => RK1
7082 procedure(real(RKC)) :: getFunc
7083 real(RKC) , intent(in) :: lb
7084 type(pinf_type) , intent(in) :: ub
7085 real(RKC) , intent(in) :: abstol
7086 real(RKC) , intent(in) :: reltol
7087 type(GK41_type) , intent(in) :: qrule
7088 real(RKC) , intent(out) :: integral, abserr
7089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7090 integer(IK) , intent(out) , contiguous :: sindex(:)
7091 integer(IK) , intent(out) :: neval
7092 integer(IK) , intent(out) :: nint
7093 integer(IK) :: err
7094 end function
7095#endif
7096
7097 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7098
7099#if RK5_ENABLED
7100 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7103#endif
7104 use pm_kind, only: RKC => RK5
7105 procedure(real(RKC)) :: getFunc
7106 type(ninf_type) , intent(in) :: lb
7107 real(RKC) , intent(in) :: ub
7108 real(RKC) , intent(in) :: abstol
7109 real(RKC) , intent(in) :: reltol
7110 type(GK41_type) , intent(in) :: qrule
7111 real(RKC) , intent(out) :: integral, abserr
7112 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7113 integer(IK) , intent(out) , contiguous :: sindex(:)
7114 integer(IK) , intent(out) :: neval
7115 integer(IK) , intent(out) :: nint
7116 integer(IK) :: err
7117 end function
7118#endif
7119
7120#if RK4_ENABLED
7121 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7124#endif
7125 use pm_kind, only: RKC => RK4
7126 procedure(real(RKC)) :: getFunc
7127 type(ninf_type) , intent(in) :: lb
7128 real(RKC) , intent(in) :: ub
7129 real(RKC) , intent(in) :: abstol
7130 real(RKC) , intent(in) :: reltol
7131 type(GK41_type) , intent(in) :: qrule
7132 real(RKC) , intent(out) :: integral, abserr
7133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7134 integer(IK) , intent(out) , contiguous :: sindex(:)
7135 integer(IK) , intent(out) :: neval
7136 integer(IK) , intent(out) :: nint
7137 integer(IK) :: err
7138 end function
7139#endif
7140
7141#if RK3_ENABLED
7142 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7145#endif
7146 use pm_kind, only: RKC => RK3
7147 procedure(real(RKC)) :: getFunc
7148 type(ninf_type) , intent(in) :: lb
7149 real(RKC) , intent(in) :: ub
7150 real(RKC) , intent(in) :: abstol
7151 real(RKC) , intent(in) :: reltol
7152 type(GK41_type) , intent(in) :: qrule
7153 real(RKC) , intent(out) :: integral, abserr
7154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7155 integer(IK) , intent(out) , contiguous :: sindex(:)
7156 integer(IK) , intent(out) :: neval
7157 integer(IK) , intent(out) :: nint
7158 integer(IK) :: err
7159 end function
7160#endif
7161
7162#if RK2_ENABLED
7163 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7166#endif
7167 use pm_kind, only: RKC => RK2
7168 procedure(real(RKC)) :: getFunc
7169 type(ninf_type) , intent(in) :: lb
7170 real(RKC) , intent(in) :: ub
7171 real(RKC) , intent(in) :: abstol
7172 real(RKC) , intent(in) :: reltol
7173 type(GK41_type) , intent(in) :: qrule
7174 real(RKC) , intent(out) :: integral, abserr
7175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7176 integer(IK) , intent(out) , contiguous :: sindex(:)
7177 integer(IK) , intent(out) :: neval
7178 integer(IK) , intent(out) :: nint
7179 integer(IK) :: err
7180 end function
7181#endif
7182
7183#if RK1_ENABLED
7184 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7187#endif
7188 use pm_kind, only: RKC => RK1
7189 procedure(real(RKC)) :: getFunc
7190 type(ninf_type) , intent(in) :: lb
7191 real(RKC) , intent(in) :: ub
7192 real(RKC) , intent(in) :: abstol
7193 real(RKC) , intent(in) :: reltol
7194 type(GK41_type) , intent(in) :: qrule
7195 real(RKC) , intent(out) :: integral, abserr
7196 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7197 integer(IK) , intent(out) , contiguous :: sindex(:)
7198 integer(IK) , intent(out) :: neval
7199 integer(IK) , intent(out) :: nint
7200 integer(IK) :: err
7201 end function
7202#endif
7203
7204 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7205
7206#if RK5_ENABLED
7207 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7208#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7209 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7210#endif
7211 use pm_kind, only: RKC => RK5
7212 procedure(real(RKC)) :: getFunc
7213 type(ninf_type) , intent(in) :: lb
7214 type(pinf_type) , intent(in) :: ub
7215 real(RKC) , intent(in) :: abstol
7216 real(RKC) , intent(in) :: reltol
7217 type(GK41_type) , intent(in) :: qrule
7218 real(RKC) , intent(out) :: integral, abserr
7219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7220 integer(IK) , intent(out) , contiguous :: sindex(:)
7221 integer(IK) , intent(out) :: neval
7222 integer(IK) , intent(out) :: nint
7223 integer(IK) :: err
7224 end function
7225#endif
7226
7227#if RK4_ENABLED
7228 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7231#endif
7232 use pm_kind, only: RKC => RK4
7233 procedure(real(RKC)) :: getFunc
7234 type(ninf_type) , intent(in) :: lb
7235 type(pinf_type) , intent(in) :: ub
7236 real(RKC) , intent(in) :: abstol
7237 real(RKC) , intent(in) :: reltol
7238 type(GK41_type) , intent(in) :: qrule
7239 real(RKC) , intent(out) :: integral, abserr
7240 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7241 integer(IK) , intent(out) , contiguous :: sindex(:)
7242 integer(IK) , intent(out) :: neval
7243 integer(IK) , intent(out) :: nint
7244 integer(IK) :: err
7245 end function
7246#endif
7247
7248#if RK3_ENABLED
7249 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7251 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7252#endif
7253 use pm_kind, only: RKC => RK3
7254 procedure(real(RKC)) :: getFunc
7255 type(ninf_type) , intent(in) :: lb
7256 type(pinf_type) , intent(in) :: ub
7257 real(RKC) , intent(in) :: abstol
7258 real(RKC) , intent(in) :: reltol
7259 type(GK41_type) , intent(in) :: qrule
7260 real(RKC) , intent(out) :: integral, abserr
7261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7262 integer(IK) , intent(out) , contiguous :: sindex(:)
7263 integer(IK) , intent(out) :: neval
7264 integer(IK) , intent(out) :: nint
7265 integer(IK) :: err
7266 end function
7267#endif
7268
7269#if RK2_ENABLED
7270 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7273#endif
7274 use pm_kind, only: RKC => RK2
7275 procedure(real(RKC)) :: getFunc
7276 type(ninf_type) , intent(in) :: lb
7277 type(pinf_type) , intent(in) :: ub
7278 real(RKC) , intent(in) :: abstol
7279 real(RKC) , intent(in) :: reltol
7280 type(GK41_type) , intent(in) :: qrule
7281 real(RKC) , intent(out) :: integral, abserr
7282 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7283 integer(IK) , intent(out) , contiguous :: sindex(:)
7284 integer(IK) , intent(out) :: neval
7285 integer(IK) , intent(out) :: nint
7286 integer(IK) :: err
7287 end function
7288#endif
7289
7290#if RK1_ENABLED
7291 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7293 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7294#endif
7295 use pm_kind, only: RKC => RK1
7296 procedure(real(RKC)) :: getFunc
7297 type(ninf_type) , intent(in) :: lb
7298 type(pinf_type) , intent(in) :: ub
7299 real(RKC) , intent(in) :: abstol
7300 real(RKC) , intent(in) :: reltol
7301 type(GK41_type) , intent(in) :: qrule
7302 real(RKC) , intent(out) :: integral, abserr
7303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7304 integer(IK) , intent(out) , contiguous :: sindex(:)
7305 integer(IK) , intent(out) :: neval
7306 integer(IK) , intent(out) :: nint
7307 integer(IK) :: err
7308 end function
7309#endif
7310
7311 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7312
7313 end interface
7314
7315 ! QAGD_GK51
7316
7317 interface getQuadErr
7318
7319 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7320
7321#if RK5_ENABLED
7322 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7325#endif
7326 use pm_kind, only: RKC => RK5
7327 procedure(real(RKC)) :: getFunc
7328 real(RKC) , intent(in) :: lb
7329 real(RKC) , intent(in) :: ub
7330 real(RKC) , intent(in) :: abstol
7331 real(RKC) , intent(in) :: reltol
7332 type(GK51_type) , intent(in) :: qrule
7333 real(RKC) , intent(out) :: integral, abserr
7334 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7335 integer(IK) , intent(out) , contiguous :: sindex(:)
7336 integer(IK) , intent(out) :: neval
7337 integer(IK) , intent(out) :: nint
7338 integer(IK) :: err
7339 end function
7340#endif
7341
7342#if RK4_ENABLED
7343 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7346#endif
7347 use pm_kind, only: RKC => RK4
7348 procedure(real(RKC)) :: getFunc
7349 real(RKC) , intent(in) :: lb
7350 real(RKC) , intent(in) :: ub
7351 real(RKC) , intent(in) :: abstol
7352 real(RKC) , intent(in) :: reltol
7353 type(GK51_type) , intent(in) :: qrule
7354 real(RKC) , intent(out) :: integral, abserr
7355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7356 integer(IK) , intent(out) , contiguous :: sindex(:)
7357 integer(IK) , intent(out) :: neval
7358 integer(IK) , intent(out) :: nint
7359 integer(IK) :: err
7360 end function
7361#endif
7362
7363#if RK3_ENABLED
7364 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7367#endif
7368 use pm_kind, only: RKC => RK3
7369 procedure(real(RKC)) :: getFunc
7370 real(RKC) , intent(in) :: lb
7371 real(RKC) , intent(in) :: ub
7372 real(RKC) , intent(in) :: abstol
7373 real(RKC) , intent(in) :: reltol
7374 type(GK51_type) , intent(in) :: qrule
7375 real(RKC) , intent(out) :: integral, abserr
7376 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7377 integer(IK) , intent(out) , contiguous :: sindex(:)
7378 integer(IK) , intent(out) :: neval
7379 integer(IK) , intent(out) :: nint
7380 integer(IK) :: err
7381 end function
7382#endif
7383
7384#if RK2_ENABLED
7385 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7388#endif
7389 use pm_kind, only: RKC => RK2
7390 procedure(real(RKC)) :: getFunc
7391 real(RKC) , intent(in) :: lb
7392 real(RKC) , intent(in) :: ub
7393 real(RKC) , intent(in) :: abstol
7394 real(RKC) , intent(in) :: reltol
7395 type(GK51_type) , intent(in) :: qrule
7396 real(RKC) , intent(out) :: integral, abserr
7397 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7398 integer(IK) , intent(out) , contiguous :: sindex(:)
7399 integer(IK) , intent(out) :: neval
7400 integer(IK) , intent(out) :: nint
7401 integer(IK) :: err
7402 end function
7403#endif
7404
7405#if RK1_ENABLED
7406 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7408 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7409#endif
7410 use pm_kind, only: RKC => RK1
7411 procedure(real(RKC)) :: getFunc
7412 real(RKC) , intent(in) :: lb
7413 real(RKC) , intent(in) :: ub
7414 real(RKC) , intent(in) :: abstol
7415 real(RKC) , intent(in) :: reltol
7416 type(GK51_type) , intent(in) :: qrule
7417 real(RKC) , intent(out) :: integral, abserr
7418 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7419 integer(IK) , intent(out) , contiguous :: sindex(:)
7420 integer(IK) , intent(out) :: neval
7421 integer(IK) , intent(out) :: nint
7422 integer(IK) :: err
7423 end function
7424#endif
7425
7426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7427
7428#if RK5_ENABLED
7429 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7432#endif
7433 use pm_kind, only: RKC => RK5
7434 procedure(real(RKC)) :: getFunc
7435 real(RKC) , intent(in) :: lb
7436 type(pinf_type) , intent(in) :: ub
7437 real(RKC) , intent(in) :: abstol
7438 real(RKC) , intent(in) :: reltol
7439 type(GK51_type) , intent(in) :: qrule
7440 real(RKC) , intent(out) :: integral, abserr
7441 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7442 integer(IK) , intent(out) , contiguous :: sindex(:)
7443 integer(IK) , intent(out) :: neval
7444 integer(IK) , intent(out) :: nint
7445 integer(IK) :: err
7446 end function
7447#endif
7448
7449#if RK4_ENABLED
7450 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7453#endif
7454 use pm_kind, only: RKC => RK4
7455 procedure(real(RKC)) :: getFunc
7456 real(RKC) , intent(in) :: lb
7457 type(pinf_type) , intent(in) :: ub
7458 real(RKC) , intent(in) :: abstol
7459 real(RKC) , intent(in) :: reltol
7460 type(GK51_type) , intent(in) :: qrule
7461 real(RKC) , intent(out) :: integral, abserr
7462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7463 integer(IK) , intent(out) , contiguous :: sindex(:)
7464 integer(IK) , intent(out) :: neval
7465 integer(IK) , intent(out) :: nint
7466 integer(IK) :: err
7467 end function
7468#endif
7469
7470#if RK3_ENABLED
7471 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7474#endif
7475 use pm_kind, only: RKC => RK3
7476 procedure(real(RKC)) :: getFunc
7477 real(RKC) , intent(in) :: lb
7478 type(pinf_type) , intent(in) :: ub
7479 real(RKC) , intent(in) :: abstol
7480 real(RKC) , intent(in) :: reltol
7481 type(GK51_type) , intent(in) :: qrule
7482 real(RKC) , intent(out) :: integral, abserr
7483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7484 integer(IK) , intent(out) , contiguous :: sindex(:)
7485 integer(IK) , intent(out) :: neval
7486 integer(IK) , intent(out) :: nint
7487 integer(IK) :: err
7488 end function
7489#endif
7490
7491#if RK2_ENABLED
7492 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7495#endif
7496 use pm_kind, only: RKC => RK2
7497 procedure(real(RKC)) :: getFunc
7498 real(RKC) , intent(in) :: lb
7499 type(pinf_type) , intent(in) :: ub
7500 real(RKC) , intent(in) :: abstol
7501 real(RKC) , intent(in) :: reltol
7502 type(GK51_type) , intent(in) :: qrule
7503 real(RKC) , intent(out) :: integral, abserr
7504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7505 integer(IK) , intent(out) , contiguous :: sindex(:)
7506 integer(IK) , intent(out) :: neval
7507 integer(IK) , intent(out) :: nint
7508 integer(IK) :: err
7509 end function
7510#endif
7511
7512#if RK1_ENABLED
7513 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7514#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7515 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7516#endif
7517 use pm_kind, only: RKC => RK1
7518 procedure(real(RKC)) :: getFunc
7519 real(RKC) , intent(in) :: lb
7520 type(pinf_type) , intent(in) :: ub
7521 real(RKC) , intent(in) :: abstol
7522 real(RKC) , intent(in) :: reltol
7523 type(GK51_type) , intent(in) :: qrule
7524 real(RKC) , intent(out) :: integral, abserr
7525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7526 integer(IK) , intent(out) , contiguous :: sindex(:)
7527 integer(IK) , intent(out) :: neval
7528 integer(IK) , intent(out) :: nint
7529 integer(IK) :: err
7530 end function
7531#endif
7532
7533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7534
7535#if RK5_ENABLED
7536 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7539#endif
7540 use pm_kind, only: RKC => RK5
7541 procedure(real(RKC)) :: getFunc
7542 type(ninf_type) , intent(in) :: lb
7543 real(RKC) , intent(in) :: ub
7544 real(RKC) , intent(in) :: abstol
7545 real(RKC) , intent(in) :: reltol
7546 type(GK51_type) , intent(in) :: qrule
7547 real(RKC) , intent(out) :: integral, abserr
7548 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7549 integer(IK) , intent(out) , contiguous :: sindex(:)
7550 integer(IK) , intent(out) :: neval
7551 integer(IK) , intent(out) :: nint
7552 integer(IK) :: err
7553 end function
7554#endif
7555
7556#if RK4_ENABLED
7557 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7560#endif
7561 use pm_kind, only: RKC => RK4
7562 procedure(real(RKC)) :: getFunc
7563 type(ninf_type) , intent(in) :: lb
7564 real(RKC) , intent(in) :: ub
7565 real(RKC) , intent(in) :: abstol
7566 real(RKC) , intent(in) :: reltol
7567 type(GK51_type) , intent(in) :: qrule
7568 real(RKC) , intent(out) :: integral, abserr
7569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7570 integer(IK) , intent(out) , contiguous :: sindex(:)
7571 integer(IK) , intent(out) :: neval
7572 integer(IK) , intent(out) :: nint
7573 integer(IK) :: err
7574 end function
7575#endif
7576
7577#if RK3_ENABLED
7578 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7581#endif
7582 use pm_kind, only: RKC => RK3
7583 procedure(real(RKC)) :: getFunc
7584 type(ninf_type) , intent(in) :: lb
7585 real(RKC) , intent(in) :: ub
7586 real(RKC) , intent(in) :: abstol
7587 real(RKC) , intent(in) :: reltol
7588 type(GK51_type) , intent(in) :: qrule
7589 real(RKC) , intent(out) :: integral, abserr
7590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7591 integer(IK) , intent(out) , contiguous :: sindex(:)
7592 integer(IK) , intent(out) :: neval
7593 integer(IK) , intent(out) :: nint
7594 integer(IK) :: err
7595 end function
7596#endif
7597
7598#if RK2_ENABLED
7599 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7602#endif
7603 use pm_kind, only: RKC => RK2
7604 procedure(real(RKC)) :: getFunc
7605 type(ninf_type) , intent(in) :: lb
7606 real(RKC) , intent(in) :: ub
7607 real(RKC) , intent(in) :: abstol
7608 real(RKC) , intent(in) :: reltol
7609 type(GK51_type) , intent(in) :: qrule
7610 real(RKC) , intent(out) :: integral, abserr
7611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7612 integer(IK) , intent(out) , contiguous :: sindex(:)
7613 integer(IK) , intent(out) :: neval
7614 integer(IK) , intent(out) :: nint
7615 integer(IK) :: err
7616 end function
7617#endif
7618
7619#if RK1_ENABLED
7620 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7623#endif
7624 use pm_kind, only: RKC => RK1
7625 procedure(real(RKC)) :: getFunc
7626 type(ninf_type) , intent(in) :: lb
7627 real(RKC) , intent(in) :: ub
7628 real(RKC) , intent(in) :: abstol
7629 real(RKC) , intent(in) :: reltol
7630 type(GK51_type) , intent(in) :: qrule
7631 real(RKC) , intent(out) :: integral, abserr
7632 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7633 integer(IK) , intent(out) , contiguous :: sindex(:)
7634 integer(IK) , intent(out) :: neval
7635 integer(IK) , intent(out) :: nint
7636 integer(IK) :: err
7637 end function
7638#endif
7639
7640 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7641
7642#if RK5_ENABLED
7643 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7644#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7645 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7646#endif
7647 use pm_kind, only: RKC => RK5
7648 procedure(real(RKC)) :: getFunc
7649 type(ninf_type) , intent(in) :: lb
7650 type(pinf_type) , intent(in) :: ub
7651 real(RKC) , intent(in) :: abstol
7652 real(RKC) , intent(in) :: reltol
7653 type(GK51_type) , intent(in) :: qrule
7654 real(RKC) , intent(out) :: integral, abserr
7655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7656 integer(IK) , intent(out) , contiguous :: sindex(:)
7657 integer(IK) , intent(out) :: neval
7658 integer(IK) , intent(out) :: nint
7659 integer(IK) :: err
7660 end function
7661#endif
7662
7663#if RK4_ENABLED
7664 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7667#endif
7668 use pm_kind, only: RKC => RK4
7669 procedure(real(RKC)) :: getFunc
7670 type(ninf_type) , intent(in) :: lb
7671 type(pinf_type) , intent(in) :: ub
7672 real(RKC) , intent(in) :: abstol
7673 real(RKC) , intent(in) :: reltol
7674 type(GK51_type) , intent(in) :: qrule
7675 real(RKC) , intent(out) :: integral, abserr
7676 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7677 integer(IK) , intent(out) , contiguous :: sindex(:)
7678 integer(IK) , intent(out) :: neval
7679 integer(IK) , intent(out) :: nint
7680 integer(IK) :: err
7681 end function
7682#endif
7683
7684#if RK3_ENABLED
7685 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7687 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7688#endif
7689 use pm_kind, only: RKC => RK3
7690 procedure(real(RKC)) :: getFunc
7691 type(ninf_type) , intent(in) :: lb
7692 type(pinf_type) , intent(in) :: ub
7693 real(RKC) , intent(in) :: abstol
7694 real(RKC) , intent(in) :: reltol
7695 type(GK51_type) , intent(in) :: qrule
7696 real(RKC) , intent(out) :: integral, abserr
7697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7698 integer(IK) , intent(out) , contiguous :: sindex(:)
7699 integer(IK) , intent(out) :: neval
7700 integer(IK) , intent(out) :: nint
7701 integer(IK) :: err
7702 end function
7703#endif
7704
7705#if RK2_ENABLED
7706 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7709#endif
7710 use pm_kind, only: RKC => RK2
7711 procedure(real(RKC)) :: getFunc
7712 type(ninf_type) , intent(in) :: lb
7713 type(pinf_type) , intent(in) :: ub
7714 real(RKC) , intent(in) :: abstol
7715 real(RKC) , intent(in) :: reltol
7716 type(GK51_type) , intent(in) :: qrule
7717 real(RKC) , intent(out) :: integral, abserr
7718 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7719 integer(IK) , intent(out) , contiguous :: sindex(:)
7720 integer(IK) , intent(out) :: neval
7721 integer(IK) , intent(out) :: nint
7722 integer(IK) :: err
7723 end function
7724#endif
7725
7726#if RK1_ENABLED
7727 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7729 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7730#endif
7731 use pm_kind, only: RKC => RK1
7732 procedure(real(RKC)) :: getFunc
7733 type(ninf_type) , intent(in) :: lb
7734 type(pinf_type) , intent(in) :: ub
7735 real(RKC) , intent(in) :: abstol
7736 real(RKC) , intent(in) :: reltol
7737 type(GK51_type) , intent(in) :: qrule
7738 real(RKC) , intent(out) :: integral, abserr
7739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7740 integer(IK) , intent(out) , contiguous :: sindex(:)
7741 integer(IK) , intent(out) :: neval
7742 integer(IK) , intent(out) :: nint
7743 integer(IK) :: err
7744 end function
7745#endif
7746
7747 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7748
7749 end interface
7750
7751 ! QAGD_GK61
7752
7753 interface getQuadErr
7754
7755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7756
7757#if RK5_ENABLED
7758 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7760 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7761#endif
7762 use pm_kind, only: RKC => RK5
7763 procedure(real(RKC)) :: getFunc
7764 real(RKC) , intent(in) :: lb
7765 real(RKC) , intent(in) :: ub
7766 real(RKC) , intent(in) :: abstol
7767 real(RKC) , intent(in) :: reltol
7768 type(GK61_type) , intent(in) :: qrule
7769 real(RKC) , intent(out) :: integral, abserr
7770 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7771 integer(IK) , intent(out) , contiguous :: sindex(:)
7772 integer(IK) , intent(out) :: neval
7773 integer(IK) , intent(out) :: nint
7774 integer(IK) :: err
7775 end function
7776#endif
7777
7778#if RK4_ENABLED
7779 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7781 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7782#endif
7783 use pm_kind, only: RKC => RK4
7784 procedure(real(RKC)) :: getFunc
7785 real(RKC) , intent(in) :: lb
7786 real(RKC) , intent(in) :: ub
7787 real(RKC) , intent(in) :: abstol
7788 real(RKC) , intent(in) :: reltol
7789 type(GK61_type) , intent(in) :: qrule
7790 real(RKC) , intent(out) :: integral, abserr
7791 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7792 integer(IK) , intent(out) , contiguous :: sindex(:)
7793 integer(IK) , intent(out) :: neval
7794 integer(IK) , intent(out) :: nint
7795 integer(IK) :: err
7796 end function
7797#endif
7798
7799#if RK3_ENABLED
7800 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7802 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7803#endif
7804 use pm_kind, only: RKC => RK3
7805 procedure(real(RKC)) :: getFunc
7806 real(RKC) , intent(in) :: lb
7807 real(RKC) , intent(in) :: ub
7808 real(RKC) , intent(in) :: abstol
7809 real(RKC) , intent(in) :: reltol
7810 type(GK61_type) , intent(in) :: qrule
7811 real(RKC) , intent(out) :: integral, abserr
7812 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7813 integer(IK) , intent(out) , contiguous :: sindex(:)
7814 integer(IK) , intent(out) :: neval
7815 integer(IK) , intent(out) :: nint
7816 integer(IK) :: err
7817 end function
7818#endif
7819
7820#if RK2_ENABLED
7821 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7822#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7823 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7824#endif
7825 use pm_kind, only: RKC => RK2
7826 procedure(real(RKC)) :: getFunc
7827 real(RKC) , intent(in) :: lb
7828 real(RKC) , intent(in) :: ub
7829 real(RKC) , intent(in) :: abstol
7830 real(RKC) , intent(in) :: reltol
7831 type(GK61_type) , intent(in) :: qrule
7832 real(RKC) , intent(out) :: integral, abserr
7833 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7834 integer(IK) , intent(out) , contiguous :: sindex(:)
7835 integer(IK) , intent(out) :: neval
7836 integer(IK) , intent(out) :: nint
7837 integer(IK) :: err
7838 end function
7839#endif
7840
7841#if RK1_ENABLED
7842 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7843#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7844 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7845#endif
7846 use pm_kind, only: RKC => RK1
7847 procedure(real(RKC)) :: getFunc
7848 real(RKC) , intent(in) :: lb
7849 real(RKC) , intent(in) :: ub
7850 real(RKC) , intent(in) :: abstol
7851 real(RKC) , intent(in) :: reltol
7852 type(GK61_type) , intent(in) :: qrule
7853 real(RKC) , intent(out) :: integral, abserr
7854 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7855 integer(IK) , intent(out) , contiguous :: sindex(:)
7856 integer(IK) , intent(out) :: neval
7857 integer(IK) , intent(out) :: nint
7858 integer(IK) :: err
7859 end function
7860#endif
7861
7862 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7863
7864#if RK5_ENABLED
7865 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7867 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7868#endif
7869 use pm_kind, only: RKC => RK5
7870 procedure(real(RKC)) :: getFunc
7871 real(RKC) , intent(in) :: lb
7872 type(pinf_type) , intent(in) :: ub
7873 real(RKC) , intent(in) :: abstol
7874 real(RKC) , intent(in) :: reltol
7875 type(GK61_type) , intent(in) :: qrule
7876 real(RKC) , intent(out) :: integral, abserr
7877 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7878 integer(IK) , intent(out) , contiguous :: sindex(:)
7879 integer(IK) , intent(out) :: neval
7880 integer(IK) , intent(out) :: nint
7881 integer(IK) :: err
7882 end function
7883#endif
7884
7885#if RK4_ENABLED
7886 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7888 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7889#endif
7890 use pm_kind, only: RKC => RK4
7891 procedure(real(RKC)) :: getFunc
7892 real(RKC) , intent(in) :: lb
7893 type(pinf_type) , intent(in) :: ub
7894 real(RKC) , intent(in) :: abstol
7895 real(RKC) , intent(in) :: reltol
7896 type(GK61_type) , intent(in) :: qrule
7897 real(RKC) , intent(out) :: integral, abserr
7898 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7899 integer(IK) , intent(out) , contiguous :: sindex(:)
7900 integer(IK) , intent(out) :: neval
7901 integer(IK) , intent(out) :: nint
7902 integer(IK) :: err
7903 end function
7904#endif
7905
7906#if RK3_ENABLED
7907 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7908#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7909 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7910#endif
7911 use pm_kind, only: RKC => RK3
7912 procedure(real(RKC)) :: getFunc
7913 real(RKC) , intent(in) :: lb
7914 type(pinf_type) , intent(in) :: ub
7915 real(RKC) , intent(in) :: abstol
7916 real(RKC) , intent(in) :: reltol
7917 type(GK61_type) , intent(in) :: qrule
7918 real(RKC) , intent(out) :: integral, abserr
7919 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7920 integer(IK) , intent(out) , contiguous :: sindex(:)
7921 integer(IK) , intent(out) :: neval
7922 integer(IK) , intent(out) :: nint
7923 integer(IK) :: err
7924 end function
7925#endif
7926
7927#if RK2_ENABLED
7928 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7930 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7931#endif
7932 use pm_kind, only: RKC => RK2
7933 procedure(real(RKC)) :: getFunc
7934 real(RKC) , intent(in) :: lb
7935 type(pinf_type) , intent(in) :: ub
7936 real(RKC) , intent(in) :: abstol
7937 real(RKC) , intent(in) :: reltol
7938 type(GK61_type) , intent(in) :: qrule
7939 real(RKC) , intent(out) :: integral, abserr
7940 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7941 integer(IK) , intent(out) , contiguous :: sindex(:)
7942 integer(IK) , intent(out) :: neval
7943 integer(IK) , intent(out) :: nint
7944 integer(IK) :: err
7945 end function
7946#endif
7947
7948#if RK1_ENABLED
7949 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7951 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
7952#endif
7953 use pm_kind, only: RKC => RK1
7954 procedure(real(RKC)) :: getFunc
7955 real(RKC) , intent(in) :: lb
7956 type(pinf_type) , intent(in) :: ub
7957 real(RKC) , intent(in) :: abstol
7958 real(RKC) , intent(in) :: reltol
7959 type(GK61_type) , intent(in) :: qrule
7960 real(RKC) , intent(out) :: integral, abserr
7961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7962 integer(IK) , intent(out) , contiguous :: sindex(:)
7963 integer(IK) , intent(out) :: neval
7964 integer(IK) , intent(out) :: nint
7965 integer(IK) :: err
7966 end function
7967#endif
7968
7969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7970
7971#if RK5_ENABLED
7972 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7973#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7974 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
7975#endif
7976 use pm_kind, only: RKC => RK5
7977 procedure(real(RKC)) :: getFunc
7978 type(ninf_type) , intent(in) :: lb
7979 real(RKC) , intent(in) :: ub
7980 real(RKC) , intent(in) :: abstol
7981 real(RKC) , intent(in) :: reltol
7982 type(GK61_type) , intent(in) :: qrule
7983 real(RKC) , intent(out) :: integral, abserr
7984 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7985 integer(IK) , intent(out) , contiguous :: sindex(:)
7986 integer(IK) , intent(out) :: neval
7987 integer(IK) , intent(out) :: nint
7988 integer(IK) :: err
7989 end function
7990#endif
7991
7992#if RK4_ENABLED
7993 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7994#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7995 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
7996#endif
7997 use pm_kind, only: RKC => RK4
7998 procedure(real(RKC)) :: getFunc
7999 type(ninf_type) , intent(in) :: lb
8000 real(RKC) , intent(in) :: ub
8001 real(RKC) , intent(in) :: abstol
8002 real(RKC) , intent(in) :: reltol
8003 type(GK61_type) , intent(in) :: qrule
8004 real(RKC) , intent(out) :: integral, abserr
8005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8006 integer(IK) , intent(out) , contiguous :: sindex(:)
8007 integer(IK) , intent(out) :: neval
8008 integer(IK) , intent(out) :: nint
8009 integer(IK) :: err
8010 end function
8011#endif
8012
8013#if RK3_ENABLED
8014 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8017#endif
8018 use pm_kind, only: RKC => RK3
8019 procedure(real(RKC)) :: getFunc
8020 type(ninf_type) , intent(in) :: lb
8021 real(RKC) , intent(in) :: ub
8022 real(RKC) , intent(in) :: abstol
8023 real(RKC) , intent(in) :: reltol
8024 type(GK61_type) , intent(in) :: qrule
8025 real(RKC) , intent(out) :: integral, abserr
8026 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8027 integer(IK) , intent(out) , contiguous :: sindex(:)
8028 integer(IK) , intent(out) :: neval
8029 integer(IK) , intent(out) :: nint
8030 integer(IK) :: err
8031 end function
8032#endif
8033
8034#if RK2_ENABLED
8035 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8036#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8037 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8038#endif
8039 use pm_kind, only: RKC => RK2
8040 procedure(real(RKC)) :: getFunc
8041 type(ninf_type) , intent(in) :: lb
8042 real(RKC) , intent(in) :: ub
8043 real(RKC) , intent(in) :: abstol
8044 real(RKC) , intent(in) :: reltol
8045 type(GK61_type) , intent(in) :: qrule
8046 real(RKC) , intent(out) :: integral, abserr
8047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8048 integer(IK) , intent(out) , contiguous :: sindex(:)
8049 integer(IK) , intent(out) :: neval
8050 integer(IK) , intent(out) :: nint
8051 integer(IK) :: err
8052 end function
8053#endif
8054
8055#if RK1_ENABLED
8056 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8059#endif
8060 use pm_kind, only: RKC => RK1
8061 procedure(real(RKC)) :: getFunc
8062 type(ninf_type) , intent(in) :: lb
8063 real(RKC) , intent(in) :: ub
8064 real(RKC) , intent(in) :: abstol
8065 real(RKC) , intent(in) :: reltol
8066 type(GK61_type) , intent(in) :: qrule
8067 real(RKC) , intent(out) :: integral, abserr
8068 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8069 integer(IK) , intent(out) , contiguous :: sindex(:)
8070 integer(IK) , intent(out) :: neval
8071 integer(IK) , intent(out) :: nint
8072 integer(IK) :: err
8073 end function
8074#endif
8075
8076 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8077
8078#if RK5_ENABLED
8079 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8080#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8081 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8082#endif
8083 use pm_kind, only: RKC => RK5
8084 procedure(real(RKC)) :: getFunc
8085 type(ninf_type) , intent(in) :: lb
8086 type(pinf_type) , intent(in) :: ub
8087 real(RKC) , intent(in) :: abstol
8088 real(RKC) , intent(in) :: reltol
8089 type(GK61_type) , intent(in) :: qrule
8090 real(RKC) , intent(out) :: integral, abserr
8091 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8092 integer(IK) , intent(out) , contiguous :: sindex(:)
8093 integer(IK) , intent(out) :: neval
8094 integer(IK) , intent(out) :: nint
8095 integer(IK) :: err
8096 end function
8097#endif
8098
8099#if RK4_ENABLED
8100 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8101#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8102 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8103#endif
8104 use pm_kind, only: RKC => RK4
8105 procedure(real(RKC)) :: getFunc
8106 type(ninf_type) , intent(in) :: lb
8107 type(pinf_type) , intent(in) :: ub
8108 real(RKC) , intent(in) :: abstol
8109 real(RKC) , intent(in) :: reltol
8110 type(GK61_type) , intent(in) :: qrule
8111 real(RKC) , intent(out) :: integral, abserr
8112 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8113 integer(IK) , intent(out) , contiguous :: sindex(:)
8114 integer(IK) , intent(out) :: neval
8115 integer(IK) , intent(out) :: nint
8116 integer(IK) :: err
8117 end function
8118#endif
8119
8120#if RK3_ENABLED
8121 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8122#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8123 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8124#endif
8125 use pm_kind, only: RKC => RK3
8126 procedure(real(RKC)) :: getFunc
8127 type(ninf_type) , intent(in) :: lb
8128 type(pinf_type) , intent(in) :: ub
8129 real(RKC) , intent(in) :: abstol
8130 real(RKC) , intent(in) :: reltol
8131 type(GK61_type) , intent(in) :: qrule
8132 real(RKC) , intent(out) :: integral, abserr
8133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8134 integer(IK) , intent(out) , contiguous :: sindex(:)
8135 integer(IK) , intent(out) :: neval
8136 integer(IK) , intent(out) :: nint
8137 integer(IK) :: err
8138 end function
8139#endif
8140
8141#if RK2_ENABLED
8142 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8145#endif
8146 use pm_kind, only: RKC => RK2
8147 procedure(real(RKC)) :: getFunc
8148 type(ninf_type) , intent(in) :: lb
8149 type(pinf_type) , intent(in) :: ub
8150 real(RKC) , intent(in) :: abstol
8151 real(RKC) , intent(in) :: reltol
8152 type(GK61_type) , intent(in) :: qrule
8153 real(RKC) , intent(out) :: integral, abserr
8154 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8155 integer(IK) , intent(out) , contiguous :: sindex(:)
8156 integer(IK) , intent(out) :: neval
8157 integer(IK) , intent(out) :: nint
8158 integer(IK) :: err
8159 end function
8160#endif
8161
8162#if RK1_ENABLED
8163 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8165 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8166#endif
8167 use pm_kind, only: RKC => RK1
8168 procedure(real(RKC)) :: getFunc
8169 type(ninf_type) , intent(in) :: lb
8170 type(pinf_type) , intent(in) :: ub
8171 real(RKC) , intent(in) :: abstol
8172 real(RKC) , intent(in) :: reltol
8173 type(GK61_type) , intent(in) :: qrule
8174 real(RKC) , intent(out) :: integral, abserr
8175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8176 integer(IK) , intent(out) , contiguous :: sindex(:)
8177 integer(IK) , intent(out) :: neval
8178 integer(IK) , intent(out) :: nint
8179 integer(IK) :: err
8180 end function
8181#endif
8182
8183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8184
8185 end interface
8186
8187 ! QAGD_GKXX
8188
8189 interface getQuadErr
8190
8191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8192
8193#if RK5_ENABLED
8194 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8197#endif
8198 use pm_kind, only: RKC => RK5
8199 procedure(real(RKC)) :: getFunc
8200 real(RKC) , intent(in) :: lb
8201 real(RKC) , intent(in) :: ub
8202 real(RKC) , intent(in) :: abstol
8203 real(RKC) , intent(in) :: reltol
8204 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8205 real(RKC) , intent(out) :: integral, abserr
8206 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8207 integer(IK) , intent(out) , contiguous :: sindex(:)
8208 integer(IK) , intent(out) :: neval
8209 integer(IK) , intent(out) :: nint
8210 integer(IK) :: err
8211 end function
8212#endif
8213
8214#if RK4_ENABLED
8215 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8216#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8217 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8218#endif
8219 use pm_kind, only: RKC => RK4
8220 procedure(real(RKC)) :: getFunc
8221 real(RKC) , intent(in) :: lb
8222 real(RKC) , intent(in) :: ub
8223 real(RKC) , intent(in) :: abstol
8224 real(RKC) , intent(in) :: reltol
8225 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8226 real(RKC) , intent(out) :: integral, abserr
8227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8228 integer(IK) , intent(out) , contiguous :: sindex(:)
8229 integer(IK) , intent(out) :: neval
8230 integer(IK) , intent(out) :: nint
8231 integer(IK) :: err
8232 end function
8233#endif
8234
8235#if RK3_ENABLED
8236 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8238 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8239#endif
8240 use pm_kind, only: RKC => RK3
8241 procedure(real(RKC)) :: getFunc
8242 real(RKC) , intent(in) :: lb
8243 real(RKC) , intent(in) :: ub
8244 real(RKC) , intent(in) :: abstol
8245 real(RKC) , intent(in) :: reltol
8246 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8247 real(RKC) , intent(out) :: integral, abserr
8248 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8249 integer(IK) , intent(out) , contiguous :: sindex(:)
8250 integer(IK) , intent(out) :: neval
8251 integer(IK) , intent(out) :: nint
8252 integer(IK) :: err
8253 end function
8254#endif
8255
8256#if RK2_ENABLED
8257 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8259 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8260#endif
8261 use pm_kind, only: RKC => RK2
8262 procedure(real(RKC)) :: getFunc
8263 real(RKC) , intent(in) :: lb
8264 real(RKC) , intent(in) :: ub
8265 real(RKC) , intent(in) :: abstol
8266 real(RKC) , intent(in) :: reltol
8267 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8268 real(RKC) , intent(out) :: integral, abserr
8269 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8270 integer(IK) , intent(out) , contiguous :: sindex(:)
8271 integer(IK) , intent(out) :: neval
8272 integer(IK) , intent(out) :: nint
8273 integer(IK) :: err
8274 end function
8275#endif
8276
8277#if RK1_ENABLED
8278 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8280 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8281#endif
8282 use pm_kind, only: RKC => RK1
8283 procedure(real(RKC)) :: getFunc
8284 real(RKC) , intent(in) :: lb
8285 real(RKC) , intent(in) :: ub
8286 real(RKC) , intent(in) :: abstol
8287 real(RKC) , intent(in) :: reltol
8288 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8289 real(RKC) , intent(out) :: integral, abserr
8290 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8291 integer(IK) , intent(out) , contiguous :: sindex(:)
8292 integer(IK) , intent(out) :: neval
8293 integer(IK) , intent(out) :: nint
8294 integer(IK) :: err
8295 end function
8296#endif
8297
8298 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8299
8300#if RK5_ENABLED
8301 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8302#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8303 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8304#endif
8305 use pm_kind, only: RKC => RK5
8306 procedure(real(RKC)) :: getFunc
8307 real(RKC) , intent(in) :: lb
8308 type(pinf_type) , intent(in) :: ub
8309 real(RKC) , intent(in) :: abstol
8310 real(RKC) , intent(in) :: reltol
8311 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8312 real(RKC) , intent(out) :: integral, abserr
8313 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8314 integer(IK) , intent(out) , contiguous :: sindex(:)
8315 integer(IK) , intent(out) :: neval
8316 integer(IK) , intent(out) :: nint
8317 integer(IK) :: err
8318 end function
8319#endif
8320
8321#if RK4_ENABLED
8322 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8324 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8325#endif
8326 use pm_kind, only: RKC => RK4
8327 procedure(real(RKC)) :: getFunc
8328 real(RKC) , intent(in) :: lb
8329 type(pinf_type) , intent(in) :: ub
8330 real(RKC) , intent(in) :: abstol
8331 real(RKC) , intent(in) :: reltol
8332 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8333 real(RKC) , intent(out) :: integral, abserr
8334 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8335 integer(IK) , intent(out) , contiguous :: sindex(:)
8336 integer(IK) , intent(out) :: neval
8337 integer(IK) , intent(out) :: nint
8338 integer(IK) :: err
8339 end function
8340#endif
8341
8342#if RK3_ENABLED
8343 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8345 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8346#endif
8347 use pm_kind, only: RKC => RK3
8348 procedure(real(RKC)) :: getFunc
8349 real(RKC) , intent(in) :: lb
8350 type(pinf_type) , intent(in) :: ub
8351 real(RKC) , intent(in) :: abstol
8352 real(RKC) , intent(in) :: reltol
8353 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8354 real(RKC) , intent(out) :: integral, abserr
8355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8356 integer(IK) , intent(out) , contiguous :: sindex(:)
8357 integer(IK) , intent(out) :: neval
8358 integer(IK) , intent(out) :: nint
8359 integer(IK) :: err
8360 end function
8361#endif
8362
8363#if RK2_ENABLED
8364 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8366 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8367#endif
8368 use pm_kind, only: RKC => RK2
8369 procedure(real(RKC)) :: getFunc
8370 real(RKC) , intent(in) :: lb
8371 type(pinf_type) , intent(in) :: ub
8372 real(RKC) , intent(in) :: abstol
8373 real(RKC) , intent(in) :: reltol
8374 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8375 real(RKC) , intent(out) :: integral, abserr
8376 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8377 integer(IK) , intent(out) , contiguous :: sindex(:)
8378 integer(IK) , intent(out) :: neval
8379 integer(IK) , intent(out) :: nint
8380 integer(IK) :: err
8381 end function
8382#endif
8383
8384#if RK1_ENABLED
8385 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8387 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8388#endif
8389 use pm_kind, only: RKC => RK1
8390 procedure(real(RKC)) :: getFunc
8391 real(RKC) , intent(in) :: lb
8392 type(pinf_type) , intent(in) :: ub
8393 real(RKC) , intent(in) :: abstol
8394 real(RKC) , intent(in) :: reltol
8395 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8396 real(RKC) , intent(out) :: integral, abserr
8397 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8398 integer(IK) , intent(out) , contiguous :: sindex(:)
8399 integer(IK) , intent(out) :: neval
8400 integer(IK) , intent(out) :: nint
8401 integer(IK) :: err
8402 end function
8403#endif
8404
8405 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8406
8407#if RK5_ENABLED
8408 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8409#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8410 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8411#endif
8412 use pm_kind, only: RKC => RK5
8413 procedure(real(RKC)) :: getFunc
8414 type(ninf_type) , intent(in) :: lb
8415 real(RKC) , intent(in) :: ub
8416 real(RKC) , intent(in) :: abstol
8417 real(RKC) , intent(in) :: reltol
8418 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8419 real(RKC) , intent(out) :: integral, abserr
8420 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8421 integer(IK) , intent(out) , contiguous :: sindex(:)
8422 integer(IK) , intent(out) :: neval
8423 integer(IK) , intent(out) :: nint
8424 integer(IK) :: err
8425 end function
8426#endif
8427
8428#if RK4_ENABLED
8429 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8431 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8432#endif
8433 use pm_kind, only: RKC => RK4
8434 procedure(real(RKC)) :: getFunc
8435 type(ninf_type) , intent(in) :: lb
8436 real(RKC) , intent(in) :: ub
8437 real(RKC) , intent(in) :: abstol
8438 real(RKC) , intent(in) :: reltol
8439 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8440 real(RKC) , intent(out) :: integral, abserr
8441 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8442 integer(IK) , intent(out) , contiguous :: sindex(:)
8443 integer(IK) , intent(out) :: neval
8444 integer(IK) , intent(out) :: nint
8445 integer(IK) :: err
8446 end function
8447#endif
8448
8449#if RK3_ENABLED
8450 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8452 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8453#endif
8454 use pm_kind, only: RKC => RK3
8455 procedure(real(RKC)) :: getFunc
8456 type(ninf_type) , intent(in) :: lb
8457 real(RKC) , intent(in) :: ub
8458 real(RKC) , intent(in) :: abstol
8459 real(RKC) , intent(in) :: reltol
8460 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8461 real(RKC) , intent(out) :: integral, abserr
8462 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8463 integer(IK) , intent(out) , contiguous :: sindex(:)
8464 integer(IK) , intent(out) :: neval
8465 integer(IK) , intent(out) :: nint
8466 integer(IK) :: err
8467 end function
8468#endif
8469
8470#if RK2_ENABLED
8471 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8473 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8474#endif
8475 use pm_kind, only: RKC => RK2
8476 procedure(real(RKC)) :: getFunc
8477 type(ninf_type) , intent(in) :: lb
8478 real(RKC) , intent(in) :: ub
8479 real(RKC) , intent(in) :: abstol
8480 real(RKC) , intent(in) :: reltol
8481 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8482 real(RKC) , intent(out) :: integral, abserr
8483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8484 integer(IK) , intent(out) , contiguous :: sindex(:)
8485 integer(IK) , intent(out) :: neval
8486 integer(IK) , intent(out) :: nint
8487 integer(IK) :: err
8488 end function
8489#endif
8490
8491#if RK1_ENABLED
8492 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8495#endif
8496 use pm_kind, only: RKC => RK1
8497 procedure(real(RKC)) :: getFunc
8498 type(ninf_type) , intent(in) :: lb
8499 real(RKC) , intent(in) :: ub
8500 real(RKC) , intent(in) :: abstol
8501 real(RKC) , intent(in) :: reltol
8502 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8503 real(RKC) , intent(out) :: integral, abserr
8504 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8505 integer(IK) , intent(out) , contiguous :: sindex(:)
8506 integer(IK) , intent(out) :: neval
8507 integer(IK) , intent(out) :: nint
8508 integer(IK) :: err
8509 end function
8510#endif
8511
8512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8513
8514#if RK5_ENABLED
8515 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8517 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8518#endif
8519 use pm_kind, only: RKC => RK5
8520 procedure(real(RKC)) :: getFunc
8521 type(ninf_type) , intent(in) :: lb
8522 type(pinf_type) , intent(in) :: ub
8523 real(RKC) , intent(in) :: abstol
8524 real(RKC) , intent(in) :: reltol
8525 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8526 real(RKC) , intent(out) :: integral, abserr
8527 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8528 integer(IK) , intent(out) , contiguous :: sindex(:)
8529 integer(IK) , intent(out) :: neval
8530 integer(IK) , intent(out) :: nint
8531 integer(IK) :: err
8532 end function
8533#endif
8534
8535#if RK4_ENABLED
8536 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8539#endif
8540 use pm_kind, only: RKC => RK4
8541 procedure(real(RKC)) :: getFunc
8542 type(ninf_type) , intent(in) :: lb
8543 type(pinf_type) , intent(in) :: ub
8544 real(RKC) , intent(in) :: abstol
8545 real(RKC) , intent(in) :: reltol
8546 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8547 real(RKC) , intent(out) :: integral, abserr
8548 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8549 integer(IK) , intent(out) , contiguous :: sindex(:)
8550 integer(IK) , intent(out) :: neval
8551 integer(IK) , intent(out) :: nint
8552 integer(IK) :: err
8553 end function
8554#endif
8555
8556#if RK3_ENABLED
8557 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8559 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8560#endif
8561 use pm_kind, only: RKC => RK3
8562 procedure(real(RKC)) :: getFunc
8563 type(ninf_type) , intent(in) :: lb
8564 type(pinf_type) , intent(in) :: ub
8565 real(RKC) , intent(in) :: abstol
8566 real(RKC) , intent(in) :: reltol
8567 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8568 real(RKC) , intent(out) :: integral, abserr
8569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8570 integer(IK) , intent(out) , contiguous :: sindex(:)
8571 integer(IK) , intent(out) :: neval
8572 integer(IK) , intent(out) :: nint
8573 integer(IK) :: err
8574 end function
8575#endif
8576
8577#if RK2_ENABLED
8578 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8580 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8581#endif
8582 use pm_kind, only: RKC => RK2
8583 procedure(real(RKC)) :: getFunc
8584 type(ninf_type) , intent(in) :: lb
8585 type(pinf_type) , intent(in) :: ub
8586 real(RKC) , intent(in) :: abstol
8587 real(RKC) , intent(in) :: reltol
8588 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8589 real(RKC) , intent(out) :: integral, abserr
8590 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8591 integer(IK) , intent(out) , contiguous :: sindex(:)
8592 integer(IK) , intent(out) :: neval
8593 integer(IK) , intent(out) :: nint
8594 integer(IK) :: err
8595 end function
8596#endif
8597
8598#if RK1_ENABLED
8599 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8601 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8602#endif
8603 use pm_kind, only: RKC => RK1
8604 procedure(real(RKC)) :: getFunc
8605 type(ninf_type) , intent(in) :: lb
8606 type(pinf_type) , intent(in) :: ub
8607 real(RKC) , intent(in) :: abstol
8608 real(RKC) , intent(in) :: reltol
8609 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8610 real(RKC) , intent(out) :: integral, abserr
8611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8612 integer(IK) , intent(out) , contiguous :: sindex(:)
8613 integer(IK) , intent(out) :: neval
8614 integer(IK) , intent(out) :: nint
8615 integer(IK) :: err
8616 end function
8617#endif
8618
8619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8620
8621 end interface
8622
8623!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8624
8625 ! QAGS_GK15
8626
8627 interface getQuadErr
8628
8629 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8630
8631#if RK5_ENABLED
8632 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8635#endif
8636 use pm_kind, only: RKC => RK5
8637 procedure(real(RKC)) :: getFunc
8638 real(RKC) , intent(in) :: lb
8639 real(RKC) , intent(in) :: ub
8640 real(RKC) , intent(in) :: abstol
8641 real(RKC) , intent(in) :: reltol
8642 type(GK15_type) , intent(in) :: qrule
8643 type(weps_type) , intent(in) :: help
8644 real(RKC) , intent(out) :: integral, abserr
8645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8646 integer(IK) , intent(out) , contiguous :: sindex(:)
8647 integer(IK) , intent(out) :: neval
8648 integer(IK) , intent(out) :: nint
8649 integer(IK) :: err
8650 end function
8651#endif
8652
8653#if RK4_ENABLED
8654 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8655#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8656 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8657#endif
8658 use pm_kind, only: RKC => RK4
8659 procedure(real(RKC)) :: getFunc
8660 real(RKC) , intent(in) :: lb
8661 real(RKC) , intent(in) :: ub
8662 real(RKC) , intent(in) :: abstol
8663 real(RKC) , intent(in) :: reltol
8664 type(GK15_type) , intent(in) :: qrule
8665 type(weps_type) , intent(in) :: help
8666 real(RKC) , intent(out) :: integral, abserr
8667 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8668 integer(IK) , intent(out) , contiguous :: sindex(:)
8669 integer(IK) , intent(out) :: neval
8670 integer(IK) , intent(out) :: nint
8671 integer(IK) :: err
8672 end function
8673#endif
8674
8675#if RK3_ENABLED
8676 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8678 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8679#endif
8680 use pm_kind, only: RKC => RK3
8681 procedure(real(RKC)) :: getFunc
8682 real(RKC) , intent(in) :: lb
8683 real(RKC) , intent(in) :: ub
8684 real(RKC) , intent(in) :: abstol
8685 real(RKC) , intent(in) :: reltol
8686 type(GK15_type) , intent(in) :: qrule
8687 type(weps_type) , intent(in) :: help
8688 real(RKC) , intent(out) :: integral, abserr
8689 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8690 integer(IK) , intent(out) , contiguous :: sindex(:)
8691 integer(IK) , intent(out) :: neval
8692 integer(IK) , intent(out) :: nint
8693 integer(IK) :: err
8694 end function
8695#endif
8696
8697#if RK2_ENABLED
8698 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8700 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8701#endif
8702 use pm_kind, only: RKC => RK2
8703 procedure(real(RKC)) :: getFunc
8704 real(RKC) , intent(in) :: lb
8705 real(RKC) , intent(in) :: ub
8706 real(RKC) , intent(in) :: abstol
8707 real(RKC) , intent(in) :: reltol
8708 type(GK15_type) , intent(in) :: qrule
8709 type(weps_type) , intent(in) :: help
8710 real(RKC) , intent(out) :: integral, abserr
8711 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8712 integer(IK) , intent(out) , contiguous :: sindex(:)
8713 integer(IK) , intent(out) :: neval
8714 integer(IK) , intent(out) :: nint
8715 integer(IK) :: err
8716 end function
8717#endif
8718
8719#if RK1_ENABLED
8720 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8721#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8722 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8723#endif
8724 use pm_kind, only: RKC => RK1
8725 procedure(real(RKC)) :: getFunc
8726 real(RKC) , intent(in) :: lb
8727 real(RKC) , intent(in) :: ub
8728 real(RKC) , intent(in) :: abstol
8729 real(RKC) , intent(in) :: reltol
8730 type(GK15_type) , intent(in) :: qrule
8731 type(weps_type) , intent(in) :: help
8732 real(RKC) , intent(out) :: integral, abserr
8733 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8734 integer(IK) , intent(out) , contiguous :: sindex(:)
8735 integer(IK) , intent(out) :: neval
8736 integer(IK) , intent(out) :: nint
8737 integer(IK) :: err
8738 end function
8739#endif
8740
8741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8742
8743#if RK5_ENABLED
8744 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8747#endif
8748 use pm_kind, only: RKC => RK5
8749 procedure(real(RKC)) :: getFunc
8750 real(RKC) , intent(in) :: lb
8751 type(pinf_type) , intent(in) :: ub
8752 real(RKC) , intent(in) :: abstol
8753 real(RKC) , intent(in) :: reltol
8754 type(GK15_type) , intent(in) :: qrule
8755 type(weps_type) , intent(in) :: help
8756 real(RKC) , intent(out) :: integral, abserr
8757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8758 integer(IK) , intent(out) , contiguous :: sindex(:)
8759 integer(IK) , intent(out) :: neval
8760 integer(IK) , intent(out) :: nint
8761 integer(IK) :: err
8762 end function
8763#endif
8764
8765#if RK4_ENABLED
8766 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8769#endif
8770 use pm_kind, only: RKC => RK4
8771 procedure(real(RKC)) :: getFunc
8772 real(RKC) , intent(in) :: lb
8773 type(pinf_type) , intent(in) :: ub
8774 real(RKC) , intent(in) :: abstol
8775 real(RKC) , intent(in) :: reltol
8776 type(GK15_type) , intent(in) :: qrule
8777 type(weps_type) , intent(in) :: help
8778 real(RKC) , intent(out) :: integral, abserr
8779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8780 integer(IK) , intent(out) , contiguous :: sindex(:)
8781 integer(IK) , intent(out) :: neval
8782 integer(IK) , intent(out) :: nint
8783 integer(IK) :: err
8784 end function
8785#endif
8786
8787#if RK3_ENABLED
8788 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8791#endif
8792 use pm_kind, only: RKC => RK3
8793 procedure(real(RKC)) :: getFunc
8794 real(RKC) , intent(in) :: lb
8795 type(pinf_type) , intent(in) :: ub
8796 real(RKC) , intent(in) :: abstol
8797 real(RKC) , intent(in) :: reltol
8798 type(GK15_type) , intent(in) :: qrule
8799 type(weps_type) , intent(in) :: help
8800 real(RKC) , intent(out) :: integral, abserr
8801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8802 integer(IK) , intent(out) , contiguous :: sindex(:)
8803 integer(IK) , intent(out) :: neval
8804 integer(IK) , intent(out) :: nint
8805 integer(IK) :: err
8806 end function
8807#endif
8808
8809#if RK2_ENABLED
8810 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8812 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8813#endif
8814 use pm_kind, only: RKC => RK2
8815 procedure(real(RKC)) :: getFunc
8816 real(RKC) , intent(in) :: lb
8817 type(pinf_type) , intent(in) :: ub
8818 real(RKC) , intent(in) :: abstol
8819 real(RKC) , intent(in) :: reltol
8820 type(GK15_type) , intent(in) :: qrule
8821 type(weps_type) , intent(in) :: help
8822 real(RKC) , intent(out) :: integral, abserr
8823 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8824 integer(IK) , intent(out) , contiguous :: sindex(:)
8825 integer(IK) , intent(out) :: neval
8826 integer(IK) , intent(out) :: nint
8827 integer(IK) :: err
8828 end function
8829#endif
8830
8831#if RK1_ENABLED
8832 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8834 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8835#endif
8836 use pm_kind, only: RKC => RK1
8837 procedure(real(RKC)) :: getFunc
8838 real(RKC) , intent(in) :: lb
8839 type(pinf_type) , intent(in) :: ub
8840 real(RKC) , intent(in) :: abstol
8841 real(RKC) , intent(in) :: reltol
8842 type(GK15_type) , intent(in) :: qrule
8843 type(weps_type) , intent(in) :: help
8844 real(RKC) , intent(out) :: integral, abserr
8845 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8846 integer(IK) , intent(out) , contiguous :: sindex(:)
8847 integer(IK) , intent(out) :: neval
8848 integer(IK) , intent(out) :: nint
8849 integer(IK) :: err
8850 end function
8851#endif
8852
8853 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8854
8855#if RK5_ENABLED
8856 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8859#endif
8860 use pm_kind, only: RKC => RK5
8861 procedure(real(RKC)) :: getFunc
8862 type(ninf_type) , intent(in) :: lb
8863 real(RKC) , intent(in) :: ub
8864 real(RKC) , intent(in) :: abstol
8865 real(RKC) , intent(in) :: reltol
8866 type(GK15_type) , intent(in) :: qrule
8867 type(weps_type) , intent(in) :: help
8868 real(RKC) , intent(out) :: integral, abserr
8869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8870 integer(IK) , intent(out) , contiguous :: sindex(:)
8871 integer(IK) , intent(out) :: neval
8872 integer(IK) , intent(out) :: nint
8873 integer(IK) :: err
8874 end function
8875#endif
8876
8877#if RK4_ENABLED
8878 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8881#endif
8882 use pm_kind, only: RKC => RK4
8883 procedure(real(RKC)) :: getFunc
8884 type(ninf_type) , intent(in) :: lb
8885 real(RKC) , intent(in) :: ub
8886 real(RKC) , intent(in) :: abstol
8887 real(RKC) , intent(in) :: reltol
8888 type(GK15_type) , intent(in) :: qrule
8889 type(weps_type) , intent(in) :: help
8890 real(RKC) , intent(out) :: integral, abserr
8891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8892 integer(IK) , intent(out) , contiguous :: sindex(:)
8893 integer(IK) , intent(out) :: neval
8894 integer(IK) , intent(out) :: nint
8895 integer(IK) :: err
8896 end function
8897#endif
8898
8899#if RK3_ENABLED
8900 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8903#endif
8904 use pm_kind, only: RKC => RK3
8905 procedure(real(RKC)) :: getFunc
8906 type(ninf_type) , intent(in) :: lb
8907 real(RKC) , intent(in) :: ub
8908 real(RKC) , intent(in) :: abstol
8909 real(RKC) , intent(in) :: reltol
8910 type(GK15_type) , intent(in) :: qrule
8911 type(weps_type) , intent(in) :: help
8912 real(RKC) , intent(out) :: integral, abserr
8913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8914 integer(IK) , intent(out) , contiguous :: sindex(:)
8915 integer(IK) , intent(out) :: neval
8916 integer(IK) , intent(out) :: nint
8917 integer(IK) :: err
8918 end function
8919#endif
8920
8921#if RK2_ENABLED
8922 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8923#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8924 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8925#endif
8926 use pm_kind, only: RKC => RK2
8927 procedure(real(RKC)) :: getFunc
8928 type(ninf_type) , intent(in) :: lb
8929 real(RKC) , intent(in) :: ub
8930 real(RKC) , intent(in) :: abstol
8931 real(RKC) , intent(in) :: reltol
8932 type(GK15_type) , intent(in) :: qrule
8933 type(weps_type) , intent(in) :: help
8934 real(RKC) , intent(out) :: integral, abserr
8935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8936 integer(IK) , intent(out) , contiguous :: sindex(:)
8937 integer(IK) , intent(out) :: neval
8938 integer(IK) , intent(out) :: nint
8939 integer(IK) :: err
8940 end function
8941#endif
8942
8943#if RK1_ENABLED
8944 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
8947#endif
8948 use pm_kind, only: RKC => RK1
8949 procedure(real(RKC)) :: getFunc
8950 type(ninf_type) , intent(in) :: lb
8951 real(RKC) , intent(in) :: ub
8952 real(RKC) , intent(in) :: abstol
8953 real(RKC) , intent(in) :: reltol
8954 type(GK15_type) , intent(in) :: qrule
8955 type(weps_type) , intent(in) :: help
8956 real(RKC) , intent(out) :: integral, abserr
8957 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8958 integer(IK) , intent(out) , contiguous :: sindex(:)
8959 integer(IK) , intent(out) :: neval
8960 integer(IK) , intent(out) :: nint
8961 integer(IK) :: err
8962 end function
8963#endif
8964
8965 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8966
8967#if RK5_ENABLED
8968 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
8971#endif
8972 use pm_kind, only: RKC => RK5
8973 procedure(real(RKC)) :: getFunc
8974 type(ninf_type) , intent(in) :: lb
8975 type(pinf_type) , intent(in) :: ub
8976 real(RKC) , intent(in) :: abstol
8977 real(RKC) , intent(in) :: reltol
8978 type(GK15_type) , intent(in) :: qrule
8979 type(weps_type) , intent(in) :: help
8980 real(RKC) , intent(out) :: integral, abserr
8981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8982 integer(IK) , intent(out) , contiguous :: sindex(:)
8983 integer(IK) , intent(out) :: neval
8984 integer(IK) , intent(out) :: nint
8985 integer(IK) :: err
8986 end function
8987#endif
8988
8989#if RK4_ENABLED
8990 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
8993#endif
8994 use pm_kind, only: RKC => RK4
8995 procedure(real(RKC)) :: getFunc
8996 type(ninf_type) , intent(in) :: lb
8997 type(pinf_type) , intent(in) :: ub
8998 real(RKC) , intent(in) :: abstol
8999 real(RKC) , intent(in) :: reltol
9000 type(GK15_type) , intent(in) :: qrule
9001 type(weps_type) , intent(in) :: help
9002 real(RKC) , intent(out) :: integral, abserr
9003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9004 integer(IK) , intent(out) , contiguous :: sindex(:)
9005 integer(IK) , intent(out) :: neval
9006 integer(IK) , intent(out) :: nint
9007 integer(IK) :: err
9008 end function
9009#endif
9010
9011#if RK3_ENABLED
9012 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9015#endif
9016 use pm_kind, only: RKC => RK3
9017 procedure(real(RKC)) :: getFunc
9018 type(ninf_type) , intent(in) :: lb
9019 type(pinf_type) , intent(in) :: ub
9020 real(RKC) , intent(in) :: abstol
9021 real(RKC) , intent(in) :: reltol
9022 type(GK15_type) , intent(in) :: qrule
9023 type(weps_type) , intent(in) :: help
9024 real(RKC) , intent(out) :: integral, abserr
9025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9026 integer(IK) , intent(out) , contiguous :: sindex(:)
9027 integer(IK) , intent(out) :: neval
9028 integer(IK) , intent(out) :: nint
9029 integer(IK) :: err
9030 end function
9031#endif
9032
9033#if RK2_ENABLED
9034 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9035#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9036 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9037#endif
9038 use pm_kind, only: RKC => RK2
9039 procedure(real(RKC)) :: getFunc
9040 type(ninf_type) , intent(in) :: lb
9041 type(pinf_type) , intent(in) :: ub
9042 real(RKC) , intent(in) :: abstol
9043 real(RKC) , intent(in) :: reltol
9044 type(GK15_type) , intent(in) :: qrule
9045 type(weps_type) , intent(in) :: help
9046 real(RKC) , intent(out) :: integral, abserr
9047 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9048 integer(IK) , intent(out) , contiguous :: sindex(:)
9049 integer(IK) , intent(out) :: neval
9050 integer(IK) , intent(out) :: nint
9051 integer(IK) :: err
9052 end function
9053#endif
9054
9055#if RK1_ENABLED
9056 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9058 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9059#endif
9060 use pm_kind, only: RKC => RK1
9061 procedure(real(RKC)) :: getFunc
9062 type(ninf_type) , intent(in) :: lb
9063 type(pinf_type) , intent(in) :: ub
9064 real(RKC) , intent(in) :: abstol
9065 real(RKC) , intent(in) :: reltol
9066 type(GK15_type) , intent(in) :: qrule
9067 type(weps_type) , intent(in) :: help
9068 real(RKC) , intent(out) :: integral, abserr
9069 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9070 integer(IK) , intent(out) , contiguous :: sindex(:)
9071 integer(IK) , intent(out) :: neval
9072 integer(IK) , intent(out) :: nint
9073 integer(IK) :: err
9074 end function
9075#endif
9076
9077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9078
9079 end interface
9080
9081 ! QAGS_GK21
9082
9083 interface getQuadErr
9084
9085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9086
9087#if RK5_ENABLED
9088 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9091#endif
9092 use pm_kind, only: RKC => RK5
9093 procedure(real(RKC)) :: getFunc
9094 real(RKC) , intent(in) :: lb
9095 real(RKC) , intent(in) :: ub
9096 real(RKC) , intent(in) :: abstol
9097 real(RKC) , intent(in) :: reltol
9098 type(GK21_type) , intent(in) :: qrule
9099 type(weps_type) , intent(in) :: help
9100 real(RKC) , intent(out) :: integral, abserr
9101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9102 integer(IK) , intent(out) , contiguous :: sindex(:)
9103 integer(IK) , intent(out) :: neval
9104 integer(IK) , intent(out) :: nint
9105 integer(IK) :: err
9106 end function
9107#endif
9108
9109#if RK4_ENABLED
9110 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9112 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9113#endif
9114 use pm_kind, only: RKC => RK4
9115 procedure(real(RKC)) :: getFunc
9116 real(RKC) , intent(in) :: lb
9117 real(RKC) , intent(in) :: ub
9118 real(RKC) , intent(in) :: abstol
9119 real(RKC) , intent(in) :: reltol
9120 type(GK21_type) , intent(in) :: qrule
9121 type(weps_type) , intent(in) :: help
9122 real(RKC) , intent(out) :: integral, abserr
9123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9124 integer(IK) , intent(out) , contiguous :: sindex(:)
9125 integer(IK) , intent(out) :: neval
9126 integer(IK) , intent(out) :: nint
9127 integer(IK) :: err
9128 end function
9129#endif
9130
9131#if RK3_ENABLED
9132 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9134 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9135#endif
9136 use pm_kind, only: RKC => RK3
9137 procedure(real(RKC)) :: getFunc
9138 real(RKC) , intent(in) :: lb
9139 real(RKC) , intent(in) :: ub
9140 real(RKC) , intent(in) :: abstol
9141 real(RKC) , intent(in) :: reltol
9142 type(GK21_type) , intent(in) :: qrule
9143 type(weps_type) , intent(in) :: help
9144 real(RKC) , intent(out) :: integral, abserr
9145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9146 integer(IK) , intent(out) , contiguous :: sindex(:)
9147 integer(IK) , intent(out) :: neval
9148 integer(IK) , intent(out) :: nint
9149 integer(IK) :: err
9150 end function
9151#endif
9152
9153#if RK2_ENABLED
9154 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9156 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9157#endif
9158 use pm_kind, only: RKC => RK2
9159 procedure(real(RKC)) :: getFunc
9160 real(RKC) , intent(in) :: lb
9161 real(RKC) , intent(in) :: ub
9162 real(RKC) , intent(in) :: abstol
9163 real(RKC) , intent(in) :: reltol
9164 type(GK21_type) , intent(in) :: qrule
9165 type(weps_type) , intent(in) :: help
9166 real(RKC) , intent(out) :: integral, abserr
9167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9168 integer(IK) , intent(out) , contiguous :: sindex(:)
9169 integer(IK) , intent(out) :: neval
9170 integer(IK) , intent(out) :: nint
9171 integer(IK) :: err
9172 end function
9173#endif
9174
9175#if RK1_ENABLED
9176 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9178 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9179#endif
9180 use pm_kind, only: RKC => RK1
9181 procedure(real(RKC)) :: getFunc
9182 real(RKC) , intent(in) :: lb
9183 real(RKC) , intent(in) :: ub
9184 real(RKC) , intent(in) :: abstol
9185 real(RKC) , intent(in) :: reltol
9186 type(GK21_type) , intent(in) :: qrule
9187 type(weps_type) , intent(in) :: help
9188 real(RKC) , intent(out) :: integral, abserr
9189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9190 integer(IK) , intent(out) , contiguous :: sindex(:)
9191 integer(IK) , intent(out) :: neval
9192 integer(IK) , intent(out) :: nint
9193 integer(IK) :: err
9194 end function
9195#endif
9196
9197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9198
9199#if RK5_ENABLED
9200 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9203#endif
9204 use pm_kind, only: RKC => RK5
9205 procedure(real(RKC)) :: getFunc
9206 real(RKC) , intent(in) :: lb
9207 type(pinf_type) , intent(in) :: ub
9208 real(RKC) , intent(in) :: abstol
9209 real(RKC) , intent(in) :: reltol
9210 type(GK21_type) , intent(in) :: qrule
9211 type(weps_type) , intent(in) :: help
9212 real(RKC) , intent(out) :: integral, abserr
9213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9214 integer(IK) , intent(out) , contiguous :: sindex(:)
9215 integer(IK) , intent(out) :: neval
9216 integer(IK) , intent(out) :: nint
9217 integer(IK) :: err
9218 end function
9219#endif
9220
9221#if RK4_ENABLED
9222 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9225#endif
9226 use pm_kind, only: RKC => RK4
9227 procedure(real(RKC)) :: getFunc
9228 real(RKC) , intent(in) :: lb
9229 type(pinf_type) , intent(in) :: ub
9230 real(RKC) , intent(in) :: abstol
9231 real(RKC) , intent(in) :: reltol
9232 type(GK21_type) , intent(in) :: qrule
9233 type(weps_type) , intent(in) :: help
9234 real(RKC) , intent(out) :: integral, abserr
9235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9236 integer(IK) , intent(out) , contiguous :: sindex(:)
9237 integer(IK) , intent(out) :: neval
9238 integer(IK) , intent(out) :: nint
9239 integer(IK) :: err
9240 end function
9241#endif
9242
9243#if RK3_ENABLED
9244 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9247#endif
9248 use pm_kind, only: RKC => RK3
9249 procedure(real(RKC)) :: getFunc
9250 real(RKC) , intent(in) :: lb
9251 type(pinf_type) , intent(in) :: ub
9252 real(RKC) , intent(in) :: abstol
9253 real(RKC) , intent(in) :: reltol
9254 type(GK21_type) , intent(in) :: qrule
9255 type(weps_type) , intent(in) :: help
9256 real(RKC) , intent(out) :: integral, abserr
9257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9258 integer(IK) , intent(out) , contiguous :: sindex(:)
9259 integer(IK) , intent(out) :: neval
9260 integer(IK) , intent(out) :: nint
9261 integer(IK) :: err
9262 end function
9263#endif
9264
9265#if RK2_ENABLED
9266 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9268 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9269#endif
9270 use pm_kind, only: RKC => RK2
9271 procedure(real(RKC)) :: getFunc
9272 real(RKC) , intent(in) :: lb
9273 type(pinf_type) , intent(in) :: ub
9274 real(RKC) , intent(in) :: abstol
9275 real(RKC) , intent(in) :: reltol
9276 type(GK21_type) , intent(in) :: qrule
9277 type(weps_type) , intent(in) :: help
9278 real(RKC) , intent(out) :: integral, abserr
9279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9280 integer(IK) , intent(out) , contiguous :: sindex(:)
9281 integer(IK) , intent(out) :: neval
9282 integer(IK) , intent(out) :: nint
9283 integer(IK) :: err
9284 end function
9285#endif
9286
9287#if RK1_ENABLED
9288 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9290 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9291#endif
9292 use pm_kind, only: RKC => RK1
9293 procedure(real(RKC)) :: getFunc
9294 real(RKC) , intent(in) :: lb
9295 type(pinf_type) , intent(in) :: ub
9296 real(RKC) , intent(in) :: abstol
9297 real(RKC) , intent(in) :: reltol
9298 type(GK21_type) , intent(in) :: qrule
9299 type(weps_type) , intent(in) :: help
9300 real(RKC) , intent(out) :: integral, abserr
9301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9302 integer(IK) , intent(out) , contiguous :: sindex(:)
9303 integer(IK) , intent(out) :: neval
9304 integer(IK) , intent(out) :: nint
9305 integer(IK) :: err
9306 end function
9307#endif
9308
9309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9310
9311#if RK5_ENABLED
9312 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9315#endif
9316 use pm_kind, only: RKC => RK5
9317 procedure(real(RKC)) :: getFunc
9318 type(ninf_type) , intent(in) :: lb
9319 real(RKC) , intent(in) :: ub
9320 real(RKC) , intent(in) :: abstol
9321 real(RKC) , intent(in) :: reltol
9322 type(GK21_type) , intent(in) :: qrule
9323 type(weps_type) , intent(in) :: help
9324 real(RKC) , intent(out) :: integral, abserr
9325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9326 integer(IK) , intent(out) , contiguous :: sindex(:)
9327 integer(IK) , intent(out) :: neval
9328 integer(IK) , intent(out) :: nint
9329 integer(IK) :: err
9330 end function
9331#endif
9332
9333#if RK4_ENABLED
9334 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9337#endif
9338 use pm_kind, only: RKC => RK4
9339 procedure(real(RKC)) :: getFunc
9340 type(ninf_type) , intent(in) :: lb
9341 real(RKC) , intent(in) :: ub
9342 real(RKC) , intent(in) :: abstol
9343 real(RKC) , intent(in) :: reltol
9344 type(GK21_type) , intent(in) :: qrule
9345 type(weps_type) , intent(in) :: help
9346 real(RKC) , intent(out) :: integral, abserr
9347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9348 integer(IK) , intent(out) , contiguous :: sindex(:)
9349 integer(IK) , intent(out) :: neval
9350 integer(IK) , intent(out) :: nint
9351 integer(IK) :: err
9352 end function
9353#endif
9354
9355#if RK3_ENABLED
9356 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9359#endif
9360 use pm_kind, only: RKC => RK3
9361 procedure(real(RKC)) :: getFunc
9362 type(ninf_type) , intent(in) :: lb
9363 real(RKC) , intent(in) :: ub
9364 real(RKC) , intent(in) :: abstol
9365 real(RKC) , intent(in) :: reltol
9366 type(GK21_type) , intent(in) :: qrule
9367 type(weps_type) , intent(in) :: help
9368 real(RKC) , intent(out) :: integral, abserr
9369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9370 integer(IK) , intent(out) , contiguous :: sindex(:)
9371 integer(IK) , intent(out) :: neval
9372 integer(IK) , intent(out) :: nint
9373 integer(IK) :: err
9374 end function
9375#endif
9376
9377#if RK2_ENABLED
9378 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9380 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9381#endif
9382 use pm_kind, only: RKC => RK2
9383 procedure(real(RKC)) :: getFunc
9384 type(ninf_type) , intent(in) :: lb
9385 real(RKC) , intent(in) :: ub
9386 real(RKC) , intent(in) :: abstol
9387 real(RKC) , intent(in) :: reltol
9388 type(GK21_type) , intent(in) :: qrule
9389 type(weps_type) , intent(in) :: help
9390 real(RKC) , intent(out) :: integral, abserr
9391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9392 integer(IK) , intent(out) , contiguous :: sindex(:)
9393 integer(IK) , intent(out) :: neval
9394 integer(IK) , intent(out) :: nint
9395 integer(IK) :: err
9396 end function
9397#endif
9398
9399#if RK1_ENABLED
9400 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9402 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9403#endif
9404 use pm_kind, only: RKC => RK1
9405 procedure(real(RKC)) :: getFunc
9406 type(ninf_type) , intent(in) :: lb
9407 real(RKC) , intent(in) :: ub
9408 real(RKC) , intent(in) :: abstol
9409 real(RKC) , intent(in) :: reltol
9410 type(GK21_type) , intent(in) :: qrule
9411 type(weps_type) , intent(in) :: help
9412 real(RKC) , intent(out) :: integral, abserr
9413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9414 integer(IK) , intent(out) , contiguous :: sindex(:)
9415 integer(IK) , intent(out) :: neval
9416 integer(IK) , intent(out) :: nint
9417 integer(IK) :: err
9418 end function
9419#endif
9420
9421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9422
9423#if RK5_ENABLED
9424 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9427#endif
9428 use pm_kind, only: RKC => RK5
9429 procedure(real(RKC)) :: getFunc
9430 type(ninf_type) , intent(in) :: lb
9431 type(pinf_type) , intent(in) :: ub
9432 real(RKC) , intent(in) :: abstol
9433 real(RKC) , intent(in) :: reltol
9434 type(GK21_type) , intent(in) :: qrule
9435 type(weps_type) , intent(in) :: help
9436 real(RKC) , intent(out) :: integral, abserr
9437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9438 integer(IK) , intent(out) , contiguous :: sindex(:)
9439 integer(IK) , intent(out) :: neval
9440 integer(IK) , intent(out) :: nint
9441 integer(IK) :: err
9442 end function
9443#endif
9444
9445#if RK4_ENABLED
9446 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9448 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9449#endif
9450 use pm_kind, only: RKC => RK4
9451 procedure(real(RKC)) :: getFunc
9452 type(ninf_type) , intent(in) :: lb
9453 type(pinf_type) , intent(in) :: ub
9454 real(RKC) , intent(in) :: abstol
9455 real(RKC) , intent(in) :: reltol
9456 type(GK21_type) , intent(in) :: qrule
9457 type(weps_type) , intent(in) :: help
9458 real(RKC) , intent(out) :: integral, abserr
9459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9460 integer(IK) , intent(out) , contiguous :: sindex(:)
9461 integer(IK) , intent(out) :: neval
9462 integer(IK) , intent(out) :: nint
9463 integer(IK) :: err
9464 end function
9465#endif
9466
9467#if RK3_ENABLED
9468 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9471#endif
9472 use pm_kind, only: RKC => RK3
9473 procedure(real(RKC)) :: getFunc
9474 type(ninf_type) , intent(in) :: lb
9475 type(pinf_type) , intent(in) :: ub
9476 real(RKC) , intent(in) :: abstol
9477 real(RKC) , intent(in) :: reltol
9478 type(GK21_type) , intent(in) :: qrule
9479 type(weps_type) , intent(in) :: help
9480 real(RKC) , intent(out) :: integral, abserr
9481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9482 integer(IK) , intent(out) , contiguous :: sindex(:)
9483 integer(IK) , intent(out) :: neval
9484 integer(IK) , intent(out) :: nint
9485 integer(IK) :: err
9486 end function
9487#endif
9488
9489#if RK2_ENABLED
9490 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9492 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9493#endif
9494 use pm_kind, only: RKC => RK2
9495 procedure(real(RKC)) :: getFunc
9496 type(ninf_type) , intent(in) :: lb
9497 type(pinf_type) , intent(in) :: ub
9498 real(RKC) , intent(in) :: abstol
9499 real(RKC) , intent(in) :: reltol
9500 type(GK21_type) , intent(in) :: qrule
9501 type(weps_type) , intent(in) :: help
9502 real(RKC) , intent(out) :: integral, abserr
9503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9504 integer(IK) , intent(out) , contiguous :: sindex(:)
9505 integer(IK) , intent(out) :: neval
9506 integer(IK) , intent(out) :: nint
9507 integer(IK) :: err
9508 end function
9509#endif
9510
9511#if RK1_ENABLED
9512 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9514 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9515#endif
9516 use pm_kind, only: RKC => RK1
9517 procedure(real(RKC)) :: getFunc
9518 type(ninf_type) , intent(in) :: lb
9519 type(pinf_type) , intent(in) :: ub
9520 real(RKC) , intent(in) :: abstol
9521 real(RKC) , intent(in) :: reltol
9522 type(GK21_type) , intent(in) :: qrule
9523 type(weps_type) , intent(in) :: help
9524 real(RKC) , intent(out) :: integral, abserr
9525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9526 integer(IK) , intent(out) , contiguous :: sindex(:)
9527 integer(IK) , intent(out) :: neval
9528 integer(IK) , intent(out) :: nint
9529 integer(IK) :: err
9530 end function
9531#endif
9532
9533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9534
9535 end interface
9536
9537 ! QAGS_GK31
9538
9539 interface getQuadErr
9540
9541 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9542
9543#if RK5_ENABLED
9544 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9547#endif
9548 use pm_kind, only: RKC => RK5
9549 procedure(real(RKC)) :: getFunc
9550 real(RKC) , intent(in) :: lb
9551 real(RKC) , intent(in) :: ub
9552 real(RKC) , intent(in) :: abstol
9553 real(RKC) , intent(in) :: reltol
9554 type(GK31_type) , intent(in) :: qrule
9555 type(weps_type) , intent(in) :: help
9556 real(RKC) , intent(out) :: integral, abserr
9557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9558 integer(IK) , intent(out) , contiguous :: sindex(:)
9559 integer(IK) , intent(out) :: neval
9560 integer(IK) , intent(out) :: nint
9561 integer(IK) :: err
9562 end function
9563#endif
9564
9565#if RK4_ENABLED
9566 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9568 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9569#endif
9570 use pm_kind, only: RKC => RK4
9571 procedure(real(RKC)) :: getFunc
9572 real(RKC) , intent(in) :: lb
9573 real(RKC) , intent(in) :: ub
9574 real(RKC) , intent(in) :: abstol
9575 real(RKC) , intent(in) :: reltol
9576 type(GK31_type) , intent(in) :: qrule
9577 type(weps_type) , intent(in) :: help
9578 real(RKC) , intent(out) :: integral, abserr
9579 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9580 integer(IK) , intent(out) , contiguous :: sindex(:)
9581 integer(IK) , intent(out) :: neval
9582 integer(IK) , intent(out) :: nint
9583 integer(IK) :: err
9584 end function
9585#endif
9586
9587#if RK3_ENABLED
9588 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9589#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9590 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9591#endif
9592 use pm_kind, only: RKC => RK3
9593 procedure(real(RKC)) :: getFunc
9594 real(RKC) , intent(in) :: lb
9595 real(RKC) , intent(in) :: ub
9596 real(RKC) , intent(in) :: abstol
9597 real(RKC) , intent(in) :: reltol
9598 type(GK31_type) , intent(in) :: qrule
9599 type(weps_type) , intent(in) :: help
9600 real(RKC) , intent(out) :: integral, abserr
9601 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9602 integer(IK) , intent(out) , contiguous :: sindex(:)
9603 integer(IK) , intent(out) :: neval
9604 integer(IK) , intent(out) :: nint
9605 integer(IK) :: err
9606 end function
9607#endif
9608
9609#if RK2_ENABLED
9610 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9612 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9613#endif
9614 use pm_kind, only: RKC => RK2
9615 procedure(real(RKC)) :: getFunc
9616 real(RKC) , intent(in) :: lb
9617 real(RKC) , intent(in) :: ub
9618 real(RKC) , intent(in) :: abstol
9619 real(RKC) , intent(in) :: reltol
9620 type(GK31_type) , intent(in) :: qrule
9621 type(weps_type) , intent(in) :: help
9622 real(RKC) , intent(out) :: integral, abserr
9623 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9624 integer(IK) , intent(out) , contiguous :: sindex(:)
9625 integer(IK) , intent(out) :: neval
9626 integer(IK) , intent(out) :: nint
9627 integer(IK) :: err
9628 end function
9629#endif
9630
9631#if RK1_ENABLED
9632 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9633#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9634 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9635#endif
9636 use pm_kind, only: RKC => RK1
9637 procedure(real(RKC)) :: getFunc
9638 real(RKC) , intent(in) :: lb
9639 real(RKC) , intent(in) :: ub
9640 real(RKC) , intent(in) :: abstol
9641 real(RKC) , intent(in) :: reltol
9642 type(GK31_type) , intent(in) :: qrule
9643 type(weps_type) , intent(in) :: help
9644 real(RKC) , intent(out) :: integral, abserr
9645 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9646 integer(IK) , intent(out) , contiguous :: sindex(:)
9647 integer(IK) , intent(out) :: neval
9648 integer(IK) , intent(out) :: nint
9649 integer(IK) :: err
9650 end function
9651#endif
9652
9653 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9654
9655#if RK5_ENABLED
9656 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9659#endif
9660 use pm_kind, only: RKC => RK5
9661 procedure(real(RKC)) :: getFunc
9662 real(RKC) , intent(in) :: lb
9663 type(pinf_type) , intent(in) :: ub
9664 real(RKC) , intent(in) :: abstol
9665 real(RKC) , intent(in) :: reltol
9666 type(GK31_type) , intent(in) :: qrule
9667 type(weps_type) , intent(in) :: help
9668 real(RKC) , intent(out) :: integral, abserr
9669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9670 integer(IK) , intent(out) , contiguous :: sindex(:)
9671 integer(IK) , intent(out) :: neval
9672 integer(IK) , intent(out) :: nint
9673 integer(IK) :: err
9674 end function
9675#endif
9676
9677#if RK4_ENABLED
9678 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9681#endif
9682 use pm_kind, only: RKC => RK4
9683 procedure(real(RKC)) :: getFunc
9684 real(RKC) , intent(in) :: lb
9685 type(pinf_type) , intent(in) :: ub
9686 real(RKC) , intent(in) :: abstol
9687 real(RKC) , intent(in) :: reltol
9688 type(GK31_type) , intent(in) :: qrule
9689 type(weps_type) , intent(in) :: help
9690 real(RKC) , intent(out) :: integral, abserr
9691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9692 integer(IK) , intent(out) , contiguous :: sindex(:)
9693 integer(IK) , intent(out) :: neval
9694 integer(IK) , intent(out) :: nint
9695 integer(IK) :: err
9696 end function
9697#endif
9698
9699#if RK3_ENABLED
9700 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9703#endif
9704 use pm_kind, only: RKC => RK3
9705 procedure(real(RKC)) :: getFunc
9706 real(RKC) , intent(in) :: lb
9707 type(pinf_type) , intent(in) :: ub
9708 real(RKC) , intent(in) :: abstol
9709 real(RKC) , intent(in) :: reltol
9710 type(GK31_type) , intent(in) :: qrule
9711 type(weps_type) , intent(in) :: help
9712 real(RKC) , intent(out) :: integral, abserr
9713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9714 integer(IK) , intent(out) , contiguous :: sindex(:)
9715 integer(IK) , intent(out) :: neval
9716 integer(IK) , intent(out) :: nint
9717 integer(IK) :: err
9718 end function
9719#endif
9720
9721#if RK2_ENABLED
9722 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9725#endif
9726 use pm_kind, only: RKC => RK2
9727 procedure(real(RKC)) :: getFunc
9728 real(RKC) , intent(in) :: lb
9729 type(pinf_type) , intent(in) :: ub
9730 real(RKC) , intent(in) :: abstol
9731 real(RKC) , intent(in) :: reltol
9732 type(GK31_type) , intent(in) :: qrule
9733 type(weps_type) , intent(in) :: help
9734 real(RKC) , intent(out) :: integral, abserr
9735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9736 integer(IK) , intent(out) , contiguous :: sindex(:)
9737 integer(IK) , intent(out) :: neval
9738 integer(IK) , intent(out) :: nint
9739 integer(IK) :: err
9740 end function
9741#endif
9742
9743#if RK1_ENABLED
9744 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9747#endif
9748 use pm_kind, only: RKC => RK1
9749 procedure(real(RKC)) :: getFunc
9750 real(RKC) , intent(in) :: lb
9751 type(pinf_type) , intent(in) :: ub
9752 real(RKC) , intent(in) :: abstol
9753 real(RKC) , intent(in) :: reltol
9754 type(GK31_type) , intent(in) :: qrule
9755 type(weps_type) , intent(in) :: help
9756 real(RKC) , intent(out) :: integral, abserr
9757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9758 integer(IK) , intent(out) , contiguous :: sindex(:)
9759 integer(IK) , intent(out) :: neval
9760 integer(IK) , intent(out) :: nint
9761 integer(IK) :: err
9762 end function
9763#endif
9764
9765 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9766
9767#if RK5_ENABLED
9768 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9771#endif
9772 use pm_kind, only: RKC => RK5
9773 procedure(real(RKC)) :: getFunc
9774 type(ninf_type) , intent(in) :: lb
9775 real(RKC) , intent(in) :: ub
9776 real(RKC) , intent(in) :: abstol
9777 real(RKC) , intent(in) :: reltol
9778 type(GK31_type) , intent(in) :: qrule
9779 type(weps_type) , intent(in) :: help
9780 real(RKC) , intent(out) :: integral, abserr
9781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9782 integer(IK) , intent(out) , contiguous :: sindex(:)
9783 integer(IK) , intent(out) :: neval
9784 integer(IK) , intent(out) :: nint
9785 integer(IK) :: err
9786 end function
9787#endif
9788
9789#if RK4_ENABLED
9790 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9793#endif
9794 use pm_kind, only: RKC => RK4
9795 procedure(real(RKC)) :: getFunc
9796 type(ninf_type) , intent(in) :: lb
9797 real(RKC) , intent(in) :: ub
9798 real(RKC) , intent(in) :: abstol
9799 real(RKC) , intent(in) :: reltol
9800 type(GK31_type) , intent(in) :: qrule
9801 type(weps_type) , intent(in) :: help
9802 real(RKC) , intent(out) :: integral, abserr
9803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9804 integer(IK) , intent(out) , contiguous :: sindex(:)
9805 integer(IK) , intent(out) :: neval
9806 integer(IK) , intent(out) :: nint
9807 integer(IK) :: err
9808 end function
9809#endif
9810
9811#if RK3_ENABLED
9812 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9815#endif
9816 use pm_kind, only: RKC => RK3
9817 procedure(real(RKC)) :: getFunc
9818 type(ninf_type) , intent(in) :: lb
9819 real(RKC) , intent(in) :: ub
9820 real(RKC) , intent(in) :: abstol
9821 real(RKC) , intent(in) :: reltol
9822 type(GK31_type) , intent(in) :: qrule
9823 type(weps_type) , intent(in) :: help
9824 real(RKC) , intent(out) :: integral, abserr
9825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9826 integer(IK) , intent(out) , contiguous :: sindex(:)
9827 integer(IK) , intent(out) :: neval
9828 integer(IK) , intent(out) :: nint
9829 integer(IK) :: err
9830 end function
9831#endif
9832
9833#if RK2_ENABLED
9834 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9837#endif
9838 use pm_kind, only: RKC => RK2
9839 procedure(real(RKC)) :: getFunc
9840 type(ninf_type) , intent(in) :: lb
9841 real(RKC) , intent(in) :: ub
9842 real(RKC) , intent(in) :: abstol
9843 real(RKC) , intent(in) :: reltol
9844 type(GK31_type) , intent(in) :: qrule
9845 type(weps_type) , intent(in) :: help
9846 real(RKC) , intent(out) :: integral, abserr
9847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9848 integer(IK) , intent(out) , contiguous :: sindex(:)
9849 integer(IK) , intent(out) :: neval
9850 integer(IK) , intent(out) :: nint
9851 integer(IK) :: err
9852 end function
9853#endif
9854
9855#if RK1_ENABLED
9856 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9859#endif
9860 use pm_kind, only: RKC => RK1
9861 procedure(real(RKC)) :: getFunc
9862 type(ninf_type) , intent(in) :: lb
9863 real(RKC) , intent(in) :: ub
9864 real(RKC) , intent(in) :: abstol
9865 real(RKC) , intent(in) :: reltol
9866 type(GK31_type) , intent(in) :: qrule
9867 type(weps_type) , intent(in) :: help
9868 real(RKC) , intent(out) :: integral, abserr
9869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9870 integer(IK) , intent(out) , contiguous :: sindex(:)
9871 integer(IK) , intent(out) :: neval
9872 integer(IK) , intent(out) :: nint
9873 integer(IK) :: err
9874 end function
9875#endif
9876
9877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9878
9879#if RK5_ENABLED
9880 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9883#endif
9884 use pm_kind, only: RKC => RK5
9885 procedure(real(RKC)) :: getFunc
9886 type(ninf_type) , intent(in) :: lb
9887 type(pinf_type) , intent(in) :: ub
9888 real(RKC) , intent(in) :: abstol
9889 real(RKC) , intent(in) :: reltol
9890 type(GK31_type) , intent(in) :: qrule
9891 type(weps_type) , intent(in) :: help
9892 real(RKC) , intent(out) :: integral, abserr
9893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9894 integer(IK) , intent(out) , contiguous :: sindex(:)
9895 integer(IK) , intent(out) :: neval
9896 integer(IK) , intent(out) :: nint
9897 integer(IK) :: err
9898 end function
9899#endif
9900
9901#if RK4_ENABLED
9902 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9905#endif
9906 use pm_kind, only: RKC => RK4
9907 procedure(real(RKC)) :: getFunc
9908 type(ninf_type) , intent(in) :: lb
9909 type(pinf_type) , intent(in) :: ub
9910 real(RKC) , intent(in) :: abstol
9911 real(RKC) , intent(in) :: reltol
9912 type(GK31_type) , intent(in) :: qrule
9913 type(weps_type) , intent(in) :: help
9914 real(RKC) , intent(out) :: integral, abserr
9915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9916 integer(IK) , intent(out) , contiguous :: sindex(:)
9917 integer(IK) , intent(out) :: neval
9918 integer(IK) , intent(out) :: nint
9919 integer(IK) :: err
9920 end function
9921#endif
9922
9923#if RK3_ENABLED
9924 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9927#endif
9928 use pm_kind, only: RKC => RK3
9929 procedure(real(RKC)) :: getFunc
9930 type(ninf_type) , intent(in) :: lb
9931 type(pinf_type) , intent(in) :: ub
9932 real(RKC) , intent(in) :: abstol
9933 real(RKC) , intent(in) :: reltol
9934 type(GK31_type) , intent(in) :: qrule
9935 type(weps_type) , intent(in) :: help
9936 real(RKC) , intent(out) :: integral, abserr
9937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9938 integer(IK) , intent(out) , contiguous :: sindex(:)
9939 integer(IK) , intent(out) :: neval
9940 integer(IK) , intent(out) :: nint
9941 integer(IK) :: err
9942 end function
9943#endif
9944
9945#if RK2_ENABLED
9946 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
9949#endif
9950 use pm_kind, only: RKC => RK2
9951 procedure(real(RKC)) :: getFunc
9952 type(ninf_type) , intent(in) :: lb
9953 type(pinf_type) , intent(in) :: ub
9954 real(RKC) , intent(in) :: abstol
9955 real(RKC) , intent(in) :: reltol
9956 type(GK31_type) , intent(in) :: qrule
9957 type(weps_type) , intent(in) :: help
9958 real(RKC) , intent(out) :: integral, abserr
9959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9960 integer(IK) , intent(out) , contiguous :: sindex(:)
9961 integer(IK) , intent(out) :: neval
9962 integer(IK) , intent(out) :: nint
9963 integer(IK) :: err
9964 end function
9965#endif
9966
9967#if RK1_ENABLED
9968 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
9971#endif
9972 use pm_kind, only: RKC => RK1
9973 procedure(real(RKC)) :: getFunc
9974 type(ninf_type) , intent(in) :: lb
9975 type(pinf_type) , intent(in) :: ub
9976 real(RKC) , intent(in) :: abstol
9977 real(RKC) , intent(in) :: reltol
9978 type(GK31_type) , intent(in) :: qrule
9979 type(weps_type) , intent(in) :: help
9980 real(RKC) , intent(out) :: integral, abserr
9981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9982 integer(IK) , intent(out) , contiguous :: sindex(:)
9983 integer(IK) , intent(out) :: neval
9984 integer(IK) , intent(out) :: nint
9985 integer(IK) :: err
9986 end function
9987#endif
9988
9989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9990
9991 end interface
9992
9993 ! QAGS_GK41
9994
9995 interface getQuadErr
9996
9997 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9998
9999#if RK5_ENABLED
10000 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10003#endif
10004 use pm_kind, only: RKC => RK5
10005 procedure(real(RKC)) :: getFunc
10006 real(RKC) , intent(in) :: lb
10007 real(RKC) , intent(in) :: ub
10008 real(RKC) , intent(in) :: abstol
10009 real(RKC) , intent(in) :: reltol
10010 type(GK41_type) , intent(in) :: qrule
10011 type(weps_type) , intent(in) :: help
10012 real(RKC) , intent(out) :: integral, abserr
10013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10014 integer(IK) , intent(out) , contiguous :: sindex(:)
10015 integer(IK) , intent(out) :: neval
10016 integer(IK) , intent(out) :: nint
10017 integer(IK) :: err
10018 end function
10019#endif
10020
10021#if RK4_ENABLED
10022 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10024 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10025#endif
10026 use pm_kind, only: RKC => RK4
10027 procedure(real(RKC)) :: getFunc
10028 real(RKC) , intent(in) :: lb
10029 real(RKC) , intent(in) :: ub
10030 real(RKC) , intent(in) :: abstol
10031 real(RKC) , intent(in) :: reltol
10032 type(GK41_type) , intent(in) :: qrule
10033 type(weps_type) , intent(in) :: help
10034 real(RKC) , intent(out) :: integral, abserr
10035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10036 integer(IK) , intent(out) , contiguous :: sindex(:)
10037 integer(IK) , intent(out) :: neval
10038 integer(IK) , intent(out) :: nint
10039 integer(IK) :: err
10040 end function
10041#endif
10042
10043#if RK3_ENABLED
10044 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10046 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10047#endif
10048 use pm_kind, only: RKC => RK3
10049 procedure(real(RKC)) :: getFunc
10050 real(RKC) , intent(in) :: lb
10051 real(RKC) , intent(in) :: ub
10052 real(RKC) , intent(in) :: abstol
10053 real(RKC) , intent(in) :: reltol
10054 type(GK41_type) , intent(in) :: qrule
10055 type(weps_type) , intent(in) :: help
10056 real(RKC) , intent(out) :: integral, abserr
10057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10058 integer(IK) , intent(out) , contiguous :: sindex(:)
10059 integer(IK) , intent(out) :: neval
10060 integer(IK) , intent(out) :: nint
10061 integer(IK) :: err
10062 end function
10063#endif
10064
10065#if RK2_ENABLED
10066 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10067#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10068 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10069#endif
10070 use pm_kind, only: RKC => RK2
10071 procedure(real(RKC)) :: getFunc
10072 real(RKC) , intent(in) :: lb
10073 real(RKC) , intent(in) :: ub
10074 real(RKC) , intent(in) :: abstol
10075 real(RKC) , intent(in) :: reltol
10076 type(GK41_type) , intent(in) :: qrule
10077 type(weps_type) , intent(in) :: help
10078 real(RKC) , intent(out) :: integral, abserr
10079 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10080 integer(IK) , intent(out) , contiguous :: sindex(:)
10081 integer(IK) , intent(out) :: neval
10082 integer(IK) , intent(out) :: nint
10083 integer(IK) :: err
10084 end function
10085#endif
10086
10087#if RK1_ENABLED
10088 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10090 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10091#endif
10092 use pm_kind, only: RKC => RK1
10093 procedure(real(RKC)) :: getFunc
10094 real(RKC) , intent(in) :: lb
10095 real(RKC) , intent(in) :: ub
10096 real(RKC) , intent(in) :: abstol
10097 real(RKC) , intent(in) :: reltol
10098 type(GK41_type) , intent(in) :: qrule
10099 type(weps_type) , intent(in) :: help
10100 real(RKC) , intent(out) :: integral, abserr
10101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10102 integer(IK) , intent(out) , contiguous :: sindex(:)
10103 integer(IK) , intent(out) :: neval
10104 integer(IK) , intent(out) :: nint
10105 integer(IK) :: err
10106 end function
10107#endif
10108
10109 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10110
10111#if RK5_ENABLED
10112 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10115#endif
10116 use pm_kind, only: RKC => RK5
10117 procedure(real(RKC)) :: getFunc
10118 real(RKC) , intent(in) :: lb
10119 type(pinf_type) , intent(in) :: ub
10120 real(RKC) , intent(in) :: abstol
10121 real(RKC) , intent(in) :: reltol
10122 type(GK41_type) , intent(in) :: qrule
10123 type(weps_type) , intent(in) :: help
10124 real(RKC) , intent(out) :: integral, abserr
10125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10126 integer(IK) , intent(out) , contiguous :: sindex(:)
10127 integer(IK) , intent(out) :: neval
10128 integer(IK) , intent(out) :: nint
10129 integer(IK) :: err
10130 end function
10131#endif
10132
10133#if RK4_ENABLED
10134 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10137#endif
10138 use pm_kind, only: RKC => RK4
10139 procedure(real(RKC)) :: getFunc
10140 real(RKC) , intent(in) :: lb
10141 type(pinf_type) , intent(in) :: ub
10142 real(RKC) , intent(in) :: abstol
10143 real(RKC) , intent(in) :: reltol
10144 type(GK41_type) , intent(in) :: qrule
10145 type(weps_type) , intent(in) :: help
10146 real(RKC) , intent(out) :: integral, abserr
10147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10148 integer(IK) , intent(out) , contiguous :: sindex(:)
10149 integer(IK) , intent(out) :: neval
10150 integer(IK) , intent(out) :: nint
10151 integer(IK) :: err
10152 end function
10153#endif
10154
10155#if RK3_ENABLED
10156 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10159#endif
10160 use pm_kind, only: RKC => RK3
10161 procedure(real(RKC)) :: getFunc
10162 real(RKC) , intent(in) :: lb
10163 type(pinf_type) , intent(in) :: ub
10164 real(RKC) , intent(in) :: abstol
10165 real(RKC) , intent(in) :: reltol
10166 type(GK41_type) , intent(in) :: qrule
10167 type(weps_type) , intent(in) :: help
10168 real(RKC) , intent(out) :: integral, abserr
10169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10170 integer(IK) , intent(out) , contiguous :: sindex(:)
10171 integer(IK) , intent(out) :: neval
10172 integer(IK) , intent(out) :: nint
10173 integer(IK) :: err
10174 end function
10175#endif
10176
10177#if RK2_ENABLED
10178 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10181#endif
10182 use pm_kind, only: RKC => RK2
10183 procedure(real(RKC)) :: getFunc
10184 real(RKC) , intent(in) :: lb
10185 type(pinf_type) , intent(in) :: ub
10186 real(RKC) , intent(in) :: abstol
10187 real(RKC) , intent(in) :: reltol
10188 type(GK41_type) , intent(in) :: qrule
10189 type(weps_type) , intent(in) :: help
10190 real(RKC) , intent(out) :: integral, abserr
10191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10192 integer(IK) , intent(out) , contiguous :: sindex(:)
10193 integer(IK) , intent(out) :: neval
10194 integer(IK) , intent(out) :: nint
10195 integer(IK) :: err
10196 end function
10197#endif
10198
10199#if RK1_ENABLED
10200 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10203#endif
10204 use pm_kind, only: RKC => RK1
10205 procedure(real(RKC)) :: getFunc
10206 real(RKC) , intent(in) :: lb
10207 type(pinf_type) , intent(in) :: ub
10208 real(RKC) , intent(in) :: abstol
10209 real(RKC) , intent(in) :: reltol
10210 type(GK41_type) , intent(in) :: qrule
10211 type(weps_type) , intent(in) :: help
10212 real(RKC) , intent(out) :: integral, abserr
10213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10214 integer(IK) , intent(out) , contiguous :: sindex(:)
10215 integer(IK) , intent(out) :: neval
10216 integer(IK) , intent(out) :: nint
10217 integer(IK) :: err
10218 end function
10219#endif
10220
10221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10222
10223#if RK5_ENABLED
10224 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10227#endif
10228 use pm_kind, only: RKC => RK5
10229 procedure(real(RKC)) :: getFunc
10230 type(ninf_type) , intent(in) :: lb
10231 real(RKC) , intent(in) :: ub
10232 real(RKC) , intent(in) :: abstol
10233 real(RKC) , intent(in) :: reltol
10234 type(GK41_type) , intent(in) :: qrule
10235 type(weps_type) , intent(in) :: help
10236 real(RKC) , intent(out) :: integral, abserr
10237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10238 integer(IK) , intent(out) , contiguous :: sindex(:)
10239 integer(IK) , intent(out) :: neval
10240 integer(IK) , intent(out) :: nint
10241 integer(IK) :: err
10242 end function
10243#endif
10244
10245#if RK4_ENABLED
10246 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10249#endif
10250 use pm_kind, only: RKC => RK4
10251 procedure(real(RKC)) :: getFunc
10252 type(ninf_type) , intent(in) :: lb
10253 real(RKC) , intent(in) :: ub
10254 real(RKC) , intent(in) :: abstol
10255 real(RKC) , intent(in) :: reltol
10256 type(GK41_type) , intent(in) :: qrule
10257 type(weps_type) , intent(in) :: help
10258 real(RKC) , intent(out) :: integral, abserr
10259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10260 integer(IK) , intent(out) , contiguous :: sindex(:)
10261 integer(IK) , intent(out) :: neval
10262 integer(IK) , intent(out) :: nint
10263 integer(IK) :: err
10264 end function
10265#endif
10266
10267#if RK3_ENABLED
10268 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10271#endif
10272 use pm_kind, only: RKC => RK3
10273 procedure(real(RKC)) :: getFunc
10274 type(ninf_type) , intent(in) :: lb
10275 real(RKC) , intent(in) :: ub
10276 real(RKC) , intent(in) :: abstol
10277 real(RKC) , intent(in) :: reltol
10278 type(GK41_type) , intent(in) :: qrule
10279 type(weps_type) , intent(in) :: help
10280 real(RKC) , intent(out) :: integral, abserr
10281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10282 integer(IK) , intent(out) , contiguous :: sindex(:)
10283 integer(IK) , intent(out) :: neval
10284 integer(IK) , intent(out) :: nint
10285 integer(IK) :: err
10286 end function
10287#endif
10288
10289#if RK2_ENABLED
10290 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10293#endif
10294 use pm_kind, only: RKC => RK2
10295 procedure(real(RKC)) :: getFunc
10296 type(ninf_type) , intent(in) :: lb
10297 real(RKC) , intent(in) :: ub
10298 real(RKC) , intent(in) :: abstol
10299 real(RKC) , intent(in) :: reltol
10300 type(GK41_type) , intent(in) :: qrule
10301 type(weps_type) , intent(in) :: help
10302 real(RKC) , intent(out) :: integral, abserr
10303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10304 integer(IK) , intent(out) , contiguous :: sindex(:)
10305 integer(IK) , intent(out) :: neval
10306 integer(IK) , intent(out) :: nint
10307 integer(IK) :: err
10308 end function
10309#endif
10310
10311#if RK1_ENABLED
10312 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10315#endif
10316 use pm_kind, only: RKC => RK1
10317 procedure(real(RKC)) :: getFunc
10318 type(ninf_type) , intent(in) :: lb
10319 real(RKC) , intent(in) :: ub
10320 real(RKC) , intent(in) :: abstol
10321 real(RKC) , intent(in) :: reltol
10322 type(GK41_type) , intent(in) :: qrule
10323 type(weps_type) , intent(in) :: help
10324 real(RKC) , intent(out) :: integral, abserr
10325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10326 integer(IK) , intent(out) , contiguous :: sindex(:)
10327 integer(IK) , intent(out) :: neval
10328 integer(IK) , intent(out) :: nint
10329 integer(IK) :: err
10330 end function
10331#endif
10332
10333 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10334
10335#if RK5_ENABLED
10336 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10339#endif
10340 use pm_kind, only: RKC => RK5
10341 procedure(real(RKC)) :: getFunc
10342 type(ninf_type) , intent(in) :: lb
10343 type(pinf_type) , intent(in) :: ub
10344 real(RKC) , intent(in) :: abstol
10345 real(RKC) , intent(in) :: reltol
10346 type(GK41_type) , intent(in) :: qrule
10347 type(weps_type) , intent(in) :: help
10348 real(RKC) , intent(out) :: integral, abserr
10349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10350 integer(IK) , intent(out) , contiguous :: sindex(:)
10351 integer(IK) , intent(out) :: neval
10352 integer(IK) , intent(out) :: nint
10353 integer(IK) :: err
10354 end function
10355#endif
10356
10357#if RK4_ENABLED
10358 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10361#endif
10362 use pm_kind, only: RKC => RK4
10363 procedure(real(RKC)) :: getFunc
10364 type(ninf_type) , intent(in) :: lb
10365 type(pinf_type) , intent(in) :: ub
10366 real(RKC) , intent(in) :: abstol
10367 real(RKC) , intent(in) :: reltol
10368 type(GK41_type) , intent(in) :: qrule
10369 type(weps_type) , intent(in) :: help
10370 real(RKC) , intent(out) :: integral, abserr
10371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10372 integer(IK) , intent(out) , contiguous :: sindex(:)
10373 integer(IK) , intent(out) :: neval
10374 integer(IK) , intent(out) :: nint
10375 integer(IK) :: err
10376 end function
10377#endif
10378
10379#if RK3_ENABLED
10380 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10383#endif
10384 use pm_kind, only: RKC => RK3
10385 procedure(real(RKC)) :: getFunc
10386 type(ninf_type) , intent(in) :: lb
10387 type(pinf_type) , intent(in) :: ub
10388 real(RKC) , intent(in) :: abstol
10389 real(RKC) , intent(in) :: reltol
10390 type(GK41_type) , intent(in) :: qrule
10391 type(weps_type) , intent(in) :: help
10392 real(RKC) , intent(out) :: integral, abserr
10393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10394 integer(IK) , intent(out) , contiguous :: sindex(:)
10395 integer(IK) , intent(out) :: neval
10396 integer(IK) , intent(out) :: nint
10397 integer(IK) :: err
10398 end function
10399#endif
10400
10401#if RK2_ENABLED
10402 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10404 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10405#endif
10406 use pm_kind, only: RKC => RK2
10407 procedure(real(RKC)) :: getFunc
10408 type(ninf_type) , intent(in) :: lb
10409 type(pinf_type) , intent(in) :: ub
10410 real(RKC) , intent(in) :: abstol
10411 real(RKC) , intent(in) :: reltol
10412 type(GK41_type) , intent(in) :: qrule
10413 type(weps_type) , intent(in) :: help
10414 real(RKC) , intent(out) :: integral, abserr
10415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10416 integer(IK) , intent(out) , contiguous :: sindex(:)
10417 integer(IK) , intent(out) :: neval
10418 integer(IK) , intent(out) :: nint
10419 integer(IK) :: err
10420 end function
10421#endif
10422
10423#if RK1_ENABLED
10424 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10427#endif
10428 use pm_kind, only: RKC => RK1
10429 procedure(real(RKC)) :: getFunc
10430 type(ninf_type) , intent(in) :: lb
10431 type(pinf_type) , intent(in) :: ub
10432 real(RKC) , intent(in) :: abstol
10433 real(RKC) , intent(in) :: reltol
10434 type(GK41_type) , intent(in) :: qrule
10435 type(weps_type) , intent(in) :: help
10436 real(RKC) , intent(out) :: integral, abserr
10437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10438 integer(IK) , intent(out) , contiguous :: sindex(:)
10439 integer(IK) , intent(out) :: neval
10440 integer(IK) , intent(out) :: nint
10441 integer(IK) :: err
10442 end function
10443#endif
10444
10445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10446
10447 end interface
10448
10449 ! QAGS_GK51
10450
10451 interface getQuadErr
10452
10453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10454
10455#if RK5_ENABLED
10456 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10459#endif
10460 use pm_kind, only: RKC => RK5
10461 procedure(real(RKC)) :: getFunc
10462 real(RKC) , intent(in) :: lb
10463 real(RKC) , intent(in) :: ub
10464 real(RKC) , intent(in) :: abstol
10465 real(RKC) , intent(in) :: reltol
10466 type(GK51_type) , intent(in) :: qrule
10467 type(weps_type) , intent(in) :: help
10468 real(RKC) , intent(out) :: integral, abserr
10469 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10470 integer(IK) , intent(out) , contiguous :: sindex(:)
10471 integer(IK) , intent(out) :: neval
10472 integer(IK) , intent(out) :: nint
10473 integer(IK) :: err
10474 end function
10475#endif
10476
10477#if RK4_ENABLED
10478 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10480 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10481#endif
10482 use pm_kind, only: RKC => RK4
10483 procedure(real(RKC)) :: getFunc
10484 real(RKC) , intent(in) :: lb
10485 real(RKC) , intent(in) :: ub
10486 real(RKC) , intent(in) :: abstol
10487 real(RKC) , intent(in) :: reltol
10488 type(GK51_type) , intent(in) :: qrule
10489 type(weps_type) , intent(in) :: help
10490 real(RKC) , intent(out) :: integral, abserr
10491 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10492 integer(IK) , intent(out) , contiguous :: sindex(:)
10493 integer(IK) , intent(out) :: neval
10494 integer(IK) , intent(out) :: nint
10495 integer(IK) :: err
10496 end function
10497#endif
10498
10499#if RK3_ENABLED
10500 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10501#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10502 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10503#endif
10504 use pm_kind, only: RKC => RK3
10505 procedure(real(RKC)) :: getFunc
10506 real(RKC) , intent(in) :: lb
10507 real(RKC) , intent(in) :: ub
10508 real(RKC) , intent(in) :: abstol
10509 real(RKC) , intent(in) :: reltol
10510 type(GK51_type) , intent(in) :: qrule
10511 type(weps_type) , intent(in) :: help
10512 real(RKC) , intent(out) :: integral, abserr
10513 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10514 integer(IK) , intent(out) , contiguous :: sindex(:)
10515 integer(IK) , intent(out) :: neval
10516 integer(IK) , intent(out) :: nint
10517 integer(IK) :: err
10518 end function
10519#endif
10520
10521#if RK2_ENABLED
10522 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10524 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10525#endif
10526 use pm_kind, only: RKC => RK2
10527 procedure(real(RKC)) :: getFunc
10528 real(RKC) , intent(in) :: lb
10529 real(RKC) , intent(in) :: ub
10530 real(RKC) , intent(in) :: abstol
10531 real(RKC) , intent(in) :: reltol
10532 type(GK51_type) , intent(in) :: qrule
10533 type(weps_type) , intent(in) :: help
10534 real(RKC) , intent(out) :: integral, abserr
10535 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10536 integer(IK) , intent(out) , contiguous :: sindex(:)
10537 integer(IK) , intent(out) :: neval
10538 integer(IK) , intent(out) :: nint
10539 integer(IK) :: err
10540 end function
10541#endif
10542
10543#if RK1_ENABLED
10544 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10545#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10546 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10547#endif
10548 use pm_kind, only: RKC => RK1
10549 procedure(real(RKC)) :: getFunc
10550 real(RKC) , intent(in) :: lb
10551 real(RKC) , intent(in) :: ub
10552 real(RKC) , intent(in) :: abstol
10553 real(RKC) , intent(in) :: reltol
10554 type(GK51_type) , intent(in) :: qrule
10555 type(weps_type) , intent(in) :: help
10556 real(RKC) , intent(out) :: integral, abserr
10557 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10558 integer(IK) , intent(out) , contiguous :: sindex(:)
10559 integer(IK) , intent(out) :: neval
10560 integer(IK) , intent(out) :: nint
10561 integer(IK) :: err
10562 end function
10563#endif
10564
10565 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10566
10567#if RK5_ENABLED
10568 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10571#endif
10572 use pm_kind, only: RKC => RK5
10573 procedure(real(RKC)) :: getFunc
10574 real(RKC) , intent(in) :: lb
10575 type(pinf_type) , intent(in) :: ub
10576 real(RKC) , intent(in) :: abstol
10577 real(RKC) , intent(in) :: reltol
10578 type(GK51_type) , intent(in) :: qrule
10579 type(weps_type) , intent(in) :: help
10580 real(RKC) , intent(out) :: integral, abserr
10581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10582 integer(IK) , intent(out) , contiguous :: sindex(:)
10583 integer(IK) , intent(out) :: neval
10584 integer(IK) , intent(out) :: nint
10585 integer(IK) :: err
10586 end function
10587#endif
10588
10589#if RK4_ENABLED
10590 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10593#endif
10594 use pm_kind, only: RKC => RK4
10595 procedure(real(RKC)) :: getFunc
10596 real(RKC) , intent(in) :: lb
10597 type(pinf_type) , intent(in) :: ub
10598 real(RKC) , intent(in) :: abstol
10599 real(RKC) , intent(in) :: reltol
10600 type(GK51_type) , intent(in) :: qrule
10601 type(weps_type) , intent(in) :: help
10602 real(RKC) , intent(out) :: integral, abserr
10603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10604 integer(IK) , intent(out) , contiguous :: sindex(:)
10605 integer(IK) , intent(out) :: neval
10606 integer(IK) , intent(out) :: nint
10607 integer(IK) :: err
10608 end function
10609#endif
10610
10611#if RK3_ENABLED
10612 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10615#endif
10616 use pm_kind, only: RKC => RK3
10617 procedure(real(RKC)) :: getFunc
10618 real(RKC) , intent(in) :: lb
10619 type(pinf_type) , intent(in) :: ub
10620 real(RKC) , intent(in) :: abstol
10621 real(RKC) , intent(in) :: reltol
10622 type(GK51_type) , intent(in) :: qrule
10623 type(weps_type) , intent(in) :: help
10624 real(RKC) , intent(out) :: integral, abserr
10625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10626 integer(IK) , intent(out) , contiguous :: sindex(:)
10627 integer(IK) , intent(out) :: neval
10628 integer(IK) , intent(out) :: nint
10629 integer(IK) :: err
10630 end function
10631#endif
10632
10633#if RK2_ENABLED
10634 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10637#endif
10638 use pm_kind, only: RKC => RK2
10639 procedure(real(RKC)) :: getFunc
10640 real(RKC) , intent(in) :: lb
10641 type(pinf_type) , intent(in) :: ub
10642 real(RKC) , intent(in) :: abstol
10643 real(RKC) , intent(in) :: reltol
10644 type(GK51_type) , intent(in) :: qrule
10645 type(weps_type) , intent(in) :: help
10646 real(RKC) , intent(out) :: integral, abserr
10647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10648 integer(IK) , intent(out) , contiguous :: sindex(:)
10649 integer(IK) , intent(out) :: neval
10650 integer(IK) , intent(out) :: nint
10651 integer(IK) :: err
10652 end function
10653#endif
10654
10655#if RK1_ENABLED
10656 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10659#endif
10660 use pm_kind, only: RKC => RK1
10661 procedure(real(RKC)) :: getFunc
10662 real(RKC) , intent(in) :: lb
10663 type(pinf_type) , intent(in) :: ub
10664 real(RKC) , intent(in) :: abstol
10665 real(RKC) , intent(in) :: reltol
10666 type(GK51_type) , intent(in) :: qrule
10667 type(weps_type) , intent(in) :: help
10668 real(RKC) , intent(out) :: integral, abserr
10669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10670 integer(IK) , intent(out) , contiguous :: sindex(:)
10671 integer(IK) , intent(out) :: neval
10672 integer(IK) , intent(out) :: nint
10673 integer(IK) :: err
10674 end function
10675#endif
10676
10677 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10678
10679#if RK5_ENABLED
10680 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10683#endif
10684 use pm_kind, only: RKC => RK5
10685 procedure(real(RKC)) :: getFunc
10686 type(ninf_type) , intent(in) :: lb
10687 real(RKC) , intent(in) :: ub
10688 real(RKC) , intent(in) :: abstol
10689 real(RKC) , intent(in) :: reltol
10690 type(GK51_type) , intent(in) :: qrule
10691 type(weps_type) , intent(in) :: help
10692 real(RKC) , intent(out) :: integral, abserr
10693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10694 integer(IK) , intent(out) , contiguous :: sindex(:)
10695 integer(IK) , intent(out) :: neval
10696 integer(IK) , intent(out) :: nint
10697 integer(IK) :: err
10698 end function
10699#endif
10700
10701#if RK4_ENABLED
10702 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10705#endif
10706 use pm_kind, only: RKC => RK4
10707 procedure(real(RKC)) :: getFunc
10708 type(ninf_type) , intent(in) :: lb
10709 real(RKC) , intent(in) :: ub
10710 real(RKC) , intent(in) :: abstol
10711 real(RKC) , intent(in) :: reltol
10712 type(GK51_type) , intent(in) :: qrule
10713 type(weps_type) , intent(in) :: help
10714 real(RKC) , intent(out) :: integral, abserr
10715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10716 integer(IK) , intent(out) , contiguous :: sindex(:)
10717 integer(IK) , intent(out) :: neval
10718 integer(IK) , intent(out) :: nint
10719 integer(IK) :: err
10720 end function
10721#endif
10722
10723#if RK3_ENABLED
10724 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10727#endif
10728 use pm_kind, only: RKC => RK3
10729 procedure(real(RKC)) :: getFunc
10730 type(ninf_type) , intent(in) :: lb
10731 real(RKC) , intent(in) :: ub
10732 real(RKC) , intent(in) :: abstol
10733 real(RKC) , intent(in) :: reltol
10734 type(GK51_type) , intent(in) :: qrule
10735 type(weps_type) , intent(in) :: help
10736 real(RKC) , intent(out) :: integral, abserr
10737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10738 integer(IK) , intent(out) , contiguous :: sindex(:)
10739 integer(IK) , intent(out) :: neval
10740 integer(IK) , intent(out) :: nint
10741 integer(IK) :: err
10742 end function
10743#endif
10744
10745#if RK2_ENABLED
10746 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10749#endif
10750 use pm_kind, only: RKC => RK2
10751 procedure(real(RKC)) :: getFunc
10752 type(ninf_type) , intent(in) :: lb
10753 real(RKC) , intent(in) :: ub
10754 real(RKC) , intent(in) :: abstol
10755 real(RKC) , intent(in) :: reltol
10756 type(GK51_type) , intent(in) :: qrule
10757 type(weps_type) , intent(in) :: help
10758 real(RKC) , intent(out) :: integral, abserr
10759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10760 integer(IK) , intent(out) , contiguous :: sindex(:)
10761 integer(IK) , intent(out) :: neval
10762 integer(IK) , intent(out) :: nint
10763 integer(IK) :: err
10764 end function
10765#endif
10766
10767#if RK1_ENABLED
10768 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10771#endif
10772 use pm_kind, only: RKC => RK1
10773 procedure(real(RKC)) :: getFunc
10774 type(ninf_type) , intent(in) :: lb
10775 real(RKC) , intent(in) :: ub
10776 real(RKC) , intent(in) :: abstol
10777 real(RKC) , intent(in) :: reltol
10778 type(GK51_type) , intent(in) :: qrule
10779 type(weps_type) , intent(in) :: help
10780 real(RKC) , intent(out) :: integral, abserr
10781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10782 integer(IK) , intent(out) , contiguous :: sindex(:)
10783 integer(IK) , intent(out) :: neval
10784 integer(IK) , intent(out) :: nint
10785 integer(IK) :: err
10786 end function
10787#endif
10788
10789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10790
10791#if RK5_ENABLED
10792 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10795#endif
10796 use pm_kind, only: RKC => RK5
10797 procedure(real(RKC)) :: getFunc
10798 type(ninf_type) , intent(in) :: lb
10799 type(pinf_type) , intent(in) :: ub
10800 real(RKC) , intent(in) :: abstol
10801 real(RKC) , intent(in) :: reltol
10802 type(GK51_type) , intent(in) :: qrule
10803 type(weps_type) , intent(in) :: help
10804 real(RKC) , intent(out) :: integral, abserr
10805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10806 integer(IK) , intent(out) , contiguous :: sindex(:)
10807 integer(IK) , intent(out) :: neval
10808 integer(IK) , intent(out) :: nint
10809 integer(IK) :: err
10810 end function
10811#endif
10812
10813#if RK4_ENABLED
10814 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10817#endif
10818 use pm_kind, only: RKC => RK4
10819 procedure(real(RKC)) :: getFunc
10820 type(ninf_type) , intent(in) :: lb
10821 type(pinf_type) , intent(in) :: ub
10822 real(RKC) , intent(in) :: abstol
10823 real(RKC) , intent(in) :: reltol
10824 type(GK51_type) , intent(in) :: qrule
10825 type(weps_type) , intent(in) :: help
10826 real(RKC) , intent(out) :: integral, abserr
10827 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10828 integer(IK) , intent(out) , contiguous :: sindex(:)
10829 integer(IK) , intent(out) :: neval
10830 integer(IK) , intent(out) :: nint
10831 integer(IK) :: err
10832 end function
10833#endif
10834
10835#if RK3_ENABLED
10836 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10839#endif
10840 use pm_kind, only: RKC => RK3
10841 procedure(real(RKC)) :: getFunc
10842 type(ninf_type) , intent(in) :: lb
10843 type(pinf_type) , intent(in) :: ub
10844 real(RKC) , intent(in) :: abstol
10845 real(RKC) , intent(in) :: reltol
10846 type(GK51_type) , intent(in) :: qrule
10847 type(weps_type) , intent(in) :: help
10848 real(RKC) , intent(out) :: integral, abserr
10849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10850 integer(IK) , intent(out) , contiguous :: sindex(:)
10851 integer(IK) , intent(out) :: neval
10852 integer(IK) , intent(out) :: nint
10853 integer(IK) :: err
10854 end function
10855#endif
10856
10857#if RK2_ENABLED
10858 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10861#endif
10862 use pm_kind, only: RKC => RK2
10863 procedure(real(RKC)) :: getFunc
10864 type(ninf_type) , intent(in) :: lb
10865 type(pinf_type) , intent(in) :: ub
10866 real(RKC) , intent(in) :: abstol
10867 real(RKC) , intent(in) :: reltol
10868 type(GK51_type) , intent(in) :: qrule
10869 type(weps_type) , intent(in) :: help
10870 real(RKC) , intent(out) :: integral, abserr
10871 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10872 integer(IK) , intent(out) , contiguous :: sindex(:)
10873 integer(IK) , intent(out) :: neval
10874 integer(IK) , intent(out) :: nint
10875 integer(IK) :: err
10876 end function
10877#endif
10878
10879#if RK1_ENABLED
10880 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10883#endif
10884 use pm_kind, only: RKC => RK1
10885 procedure(real(RKC)) :: getFunc
10886 type(ninf_type) , intent(in) :: lb
10887 type(pinf_type) , intent(in) :: ub
10888 real(RKC) , intent(in) :: abstol
10889 real(RKC) , intent(in) :: reltol
10890 type(GK51_type) , intent(in) :: qrule
10891 type(weps_type) , intent(in) :: help
10892 real(RKC) , intent(out) :: integral, abserr
10893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10894 integer(IK) , intent(out) , contiguous :: sindex(:)
10895 integer(IK) , intent(out) :: neval
10896 integer(IK) , intent(out) :: nint
10897 integer(IK) :: err
10898 end function
10899#endif
10900
10901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10902
10903 end interface
10904
10905 ! QAGS_GK61
10906
10907 interface getQuadErr
10908
10909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10910
10911#if RK5_ENABLED
10912 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10914 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10915#endif
10916 use pm_kind, only: RKC => RK5
10917 procedure(real(RKC)) :: getFunc
10918 real(RKC) , intent(in) :: lb
10919 real(RKC) , intent(in) :: ub
10920 real(RKC) , intent(in) :: abstol
10921 real(RKC) , intent(in) :: reltol
10922 type(GK61_type) , intent(in) :: qrule
10923 type(weps_type) , intent(in) :: help
10924 real(RKC) , intent(out) :: integral, abserr
10925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10926 integer(IK) , intent(out) , contiguous :: sindex(:)
10927 integer(IK) , intent(out) :: neval
10928 integer(IK) , intent(out) :: nint
10929 integer(IK) :: err
10930 end function
10931#endif
10932
10933#if RK4_ENABLED
10934 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10936 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
10937#endif
10938 use pm_kind, only: RKC => RK4
10939 procedure(real(RKC)) :: getFunc
10940 real(RKC) , intent(in) :: lb
10941 real(RKC) , intent(in) :: ub
10942 real(RKC) , intent(in) :: abstol
10943 real(RKC) , intent(in) :: reltol
10944 type(GK61_type) , intent(in) :: qrule
10945 type(weps_type) , intent(in) :: help
10946 real(RKC) , intent(out) :: integral, abserr
10947 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10948 integer(IK) , intent(out) , contiguous :: sindex(:)
10949 integer(IK) , intent(out) :: neval
10950 integer(IK) , intent(out) :: nint
10951 integer(IK) :: err
10952 end function
10953#endif
10954
10955#if RK3_ENABLED
10956 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10958 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
10959#endif
10960 use pm_kind, only: RKC => RK3
10961 procedure(real(RKC)) :: getFunc
10962 real(RKC) , intent(in) :: lb
10963 real(RKC) , intent(in) :: ub
10964 real(RKC) , intent(in) :: abstol
10965 real(RKC) , intent(in) :: reltol
10966 type(GK61_type) , intent(in) :: qrule
10967 type(weps_type) , intent(in) :: help
10968 real(RKC) , intent(out) :: integral, abserr
10969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10970 integer(IK) , intent(out) , contiguous :: sindex(:)
10971 integer(IK) , intent(out) :: neval
10972 integer(IK) , intent(out) :: nint
10973 integer(IK) :: err
10974 end function
10975#endif
10976
10977#if RK2_ENABLED
10978 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10980 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
10981#endif
10982 use pm_kind, only: RKC => RK2
10983 procedure(real(RKC)) :: getFunc
10984 real(RKC) , intent(in) :: lb
10985 real(RKC) , intent(in) :: ub
10986 real(RKC) , intent(in) :: abstol
10987 real(RKC) , intent(in) :: reltol
10988 type(GK61_type) , intent(in) :: qrule
10989 type(weps_type) , intent(in) :: help
10990 real(RKC) , intent(out) :: integral, abserr
10991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10992 integer(IK) , intent(out) , contiguous :: sindex(:)
10993 integer(IK) , intent(out) :: neval
10994 integer(IK) , intent(out) :: nint
10995 integer(IK) :: err
10996 end function
10997#endif
10998
10999#if RK1_ENABLED
11000 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11002 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11003#endif
11004 use pm_kind, only: RKC => RK1
11005 procedure(real(RKC)) :: getFunc
11006 real(RKC) , intent(in) :: lb
11007 real(RKC) , intent(in) :: ub
11008 real(RKC) , intent(in) :: abstol
11009 real(RKC) , intent(in) :: reltol
11010 type(GK61_type) , intent(in) :: qrule
11011 type(weps_type) , intent(in) :: help
11012 real(RKC) , intent(out) :: integral, abserr
11013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11014 integer(IK) , intent(out) , contiguous :: sindex(:)
11015 integer(IK) , intent(out) :: neval
11016 integer(IK) , intent(out) :: nint
11017 integer(IK) :: err
11018 end function
11019#endif
11020
11021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11022
11023#if RK5_ENABLED
11024 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11027#endif
11028 use pm_kind, only: RKC => RK5
11029 procedure(real(RKC)) :: getFunc
11030 real(RKC) , intent(in) :: lb
11031 type(pinf_type) , intent(in) :: ub
11032 real(RKC) , intent(in) :: abstol
11033 real(RKC) , intent(in) :: reltol
11034 type(GK61_type) , intent(in) :: qrule
11035 type(weps_type) , intent(in) :: help
11036 real(RKC) , intent(out) :: integral, abserr
11037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11038 integer(IK) , intent(out) , contiguous :: sindex(:)
11039 integer(IK) , intent(out) :: neval
11040 integer(IK) , intent(out) :: nint
11041 integer(IK) :: err
11042 end function
11043#endif
11044
11045#if RK4_ENABLED
11046 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11048 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11049#endif
11050 use pm_kind, only: RKC => RK4
11051 procedure(real(RKC)) :: getFunc
11052 real(RKC) , intent(in) :: lb
11053 type(pinf_type) , intent(in) :: ub
11054 real(RKC) , intent(in) :: abstol
11055 real(RKC) , intent(in) :: reltol
11056 type(GK61_type) , intent(in) :: qrule
11057 type(weps_type) , intent(in) :: help
11058 real(RKC) , intent(out) :: integral, abserr
11059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11060 integer(IK) , intent(out) , contiguous :: sindex(:)
11061 integer(IK) , intent(out) :: neval
11062 integer(IK) , intent(out) :: nint
11063 integer(IK) :: err
11064 end function
11065#endif
11066
11067#if RK3_ENABLED
11068 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11071#endif
11072 use pm_kind, only: RKC => RK3
11073 procedure(real(RKC)) :: getFunc
11074 real(RKC) , intent(in) :: lb
11075 type(pinf_type) , intent(in) :: ub
11076 real(RKC) , intent(in) :: abstol
11077 real(RKC) , intent(in) :: reltol
11078 type(GK61_type) , intent(in) :: qrule
11079 type(weps_type) , intent(in) :: help
11080 real(RKC) , intent(out) :: integral, abserr
11081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11082 integer(IK) , intent(out) , contiguous :: sindex(:)
11083 integer(IK) , intent(out) :: neval
11084 integer(IK) , intent(out) :: nint
11085 integer(IK) :: err
11086 end function
11087#endif
11088
11089#if RK2_ENABLED
11090 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11092 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11093#endif
11094 use pm_kind, only: RKC => RK2
11095 procedure(real(RKC)) :: getFunc
11096 real(RKC) , intent(in) :: lb
11097 type(pinf_type) , intent(in) :: ub
11098 real(RKC) , intent(in) :: abstol
11099 real(RKC) , intent(in) :: reltol
11100 type(GK61_type) , intent(in) :: qrule
11101 type(weps_type) , intent(in) :: help
11102 real(RKC) , intent(out) :: integral, abserr
11103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11104 integer(IK) , intent(out) , contiguous :: sindex(:)
11105 integer(IK) , intent(out) :: neval
11106 integer(IK) , intent(out) :: nint
11107 integer(IK) :: err
11108 end function
11109#endif
11110
11111#if RK1_ENABLED
11112 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11115#endif
11116 use pm_kind, only: RKC => RK1
11117 procedure(real(RKC)) :: getFunc
11118 real(RKC) , intent(in) :: lb
11119 type(pinf_type) , intent(in) :: ub
11120 real(RKC) , intent(in) :: abstol
11121 real(RKC) , intent(in) :: reltol
11122 type(GK61_type) , intent(in) :: qrule
11123 type(weps_type) , intent(in) :: help
11124 real(RKC) , intent(out) :: integral, abserr
11125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11126 integer(IK) , intent(out) , contiguous :: sindex(:)
11127 integer(IK) , intent(out) :: neval
11128 integer(IK) , intent(out) :: nint
11129 integer(IK) :: err
11130 end function
11131#endif
11132
11133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11134
11135#if RK5_ENABLED
11136 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11139#endif
11140 use pm_kind, only: RKC => RK5
11141 procedure(real(RKC)) :: getFunc
11142 type(ninf_type) , intent(in) :: lb
11143 real(RKC) , intent(in) :: ub
11144 real(RKC) , intent(in) :: abstol
11145 real(RKC) , intent(in) :: reltol
11146 type(GK61_type) , intent(in) :: qrule
11147 type(weps_type) , intent(in) :: help
11148 real(RKC) , intent(out) :: integral, abserr
11149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11150 integer(IK) , intent(out) , contiguous :: sindex(:)
11151 integer(IK) , intent(out) :: neval
11152 integer(IK) , intent(out) :: nint
11153 integer(IK) :: err
11154 end function
11155#endif
11156
11157#if RK4_ENABLED
11158 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11161#endif
11162 use pm_kind, only: RKC => RK4
11163 procedure(real(RKC)) :: getFunc
11164 type(ninf_type) , intent(in) :: lb
11165 real(RKC) , intent(in) :: ub
11166 real(RKC) , intent(in) :: abstol
11167 real(RKC) , intent(in) :: reltol
11168 type(GK61_type) , intent(in) :: qrule
11169 type(weps_type) , intent(in) :: help
11170 real(RKC) , intent(out) :: integral, abserr
11171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11172 integer(IK) , intent(out) , contiguous :: sindex(:)
11173 integer(IK) , intent(out) :: neval
11174 integer(IK) , intent(out) :: nint
11175 integer(IK) :: err
11176 end function
11177#endif
11178
11179#if RK3_ENABLED
11180 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11183#endif
11184 use pm_kind, only: RKC => RK3
11185 procedure(real(RKC)) :: getFunc
11186 type(ninf_type) , intent(in) :: lb
11187 real(RKC) , intent(in) :: ub
11188 real(RKC) , intent(in) :: abstol
11189 real(RKC) , intent(in) :: reltol
11190 type(GK61_type) , intent(in) :: qrule
11191 type(weps_type) , intent(in) :: help
11192 real(RKC) , intent(out) :: integral, abserr
11193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11194 integer(IK) , intent(out) , contiguous :: sindex(:)
11195 integer(IK) , intent(out) :: neval
11196 integer(IK) , intent(out) :: nint
11197 integer(IK) :: err
11198 end function
11199#endif
11200
11201#if RK2_ENABLED
11202 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11205#endif
11206 use pm_kind, only: RKC => RK2
11207 procedure(real(RKC)) :: getFunc
11208 type(ninf_type) , intent(in) :: lb
11209 real(RKC) , intent(in) :: ub
11210 real(RKC) , intent(in) :: abstol
11211 real(RKC) , intent(in) :: reltol
11212 type(GK61_type) , intent(in) :: qrule
11213 type(weps_type) , intent(in) :: help
11214 real(RKC) , intent(out) :: integral, abserr
11215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11216 integer(IK) , intent(out) , contiguous :: sindex(:)
11217 integer(IK) , intent(out) :: neval
11218 integer(IK) , intent(out) :: nint
11219 integer(IK) :: err
11220 end function
11221#endif
11222
11223#if RK1_ENABLED
11224 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11227#endif
11228 use pm_kind, only: RKC => RK1
11229 procedure(real(RKC)) :: getFunc
11230 type(ninf_type) , intent(in) :: lb
11231 real(RKC) , intent(in) :: ub
11232 real(RKC) , intent(in) :: abstol
11233 real(RKC) , intent(in) :: reltol
11234 type(GK61_type) , intent(in) :: qrule
11235 type(weps_type) , intent(in) :: help
11236 real(RKC) , intent(out) :: integral, abserr
11237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11238 integer(IK) , intent(out) , contiguous :: sindex(:)
11239 integer(IK) , intent(out) :: neval
11240 integer(IK) , intent(out) :: nint
11241 integer(IK) :: err
11242 end function
11243#endif
11244
11245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11246
11247#if RK5_ENABLED
11248 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11251#endif
11252 use pm_kind, only: RKC => RK5
11253 procedure(real(RKC)) :: getFunc
11254 type(ninf_type) , intent(in) :: lb
11255 type(pinf_type) , intent(in) :: ub
11256 real(RKC) , intent(in) :: abstol
11257 real(RKC) , intent(in) :: reltol
11258 type(GK61_type) , intent(in) :: qrule
11259 type(weps_type) , intent(in) :: help
11260 real(RKC) , intent(out) :: integral, abserr
11261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11262 integer(IK) , intent(out) , contiguous :: sindex(:)
11263 integer(IK) , intent(out) :: neval
11264 integer(IK) , intent(out) :: nint
11265 integer(IK) :: err
11266 end function
11267#endif
11268
11269#if RK4_ENABLED
11270 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11273#endif
11274 use pm_kind, only: RKC => RK4
11275 procedure(real(RKC)) :: getFunc
11276 type(ninf_type) , intent(in) :: lb
11277 type(pinf_type) , intent(in) :: ub
11278 real(RKC) , intent(in) :: abstol
11279 real(RKC) , intent(in) :: reltol
11280 type(GK61_type) , intent(in) :: qrule
11281 type(weps_type) , intent(in) :: help
11282 real(RKC) , intent(out) :: integral, abserr
11283 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11284 integer(IK) , intent(out) , contiguous :: sindex(:)
11285 integer(IK) , intent(out) :: neval
11286 integer(IK) , intent(out) :: nint
11287 integer(IK) :: err
11288 end function
11289#endif
11290
11291#if RK3_ENABLED
11292 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11295#endif
11296 use pm_kind, only: RKC => RK3
11297 procedure(real(RKC)) :: getFunc
11298 type(ninf_type) , intent(in) :: lb
11299 type(pinf_type) , intent(in) :: ub
11300 real(RKC) , intent(in) :: abstol
11301 real(RKC) , intent(in) :: reltol
11302 type(GK61_type) , intent(in) :: qrule
11303 type(weps_type) , intent(in) :: help
11304 real(RKC) , intent(out) :: integral, abserr
11305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11306 integer(IK) , intent(out) , contiguous :: sindex(:)
11307 integer(IK) , intent(out) :: neval
11308 integer(IK) , intent(out) :: nint
11309 integer(IK) :: err
11310 end function
11311#endif
11312
11313#if RK2_ENABLED
11314 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11317#endif
11318 use pm_kind, only: RKC => RK2
11319 procedure(real(RKC)) :: getFunc
11320 type(ninf_type) , intent(in) :: lb
11321 type(pinf_type) , intent(in) :: ub
11322 real(RKC) , intent(in) :: abstol
11323 real(RKC) , intent(in) :: reltol
11324 type(GK61_type) , intent(in) :: qrule
11325 type(weps_type) , intent(in) :: help
11326 real(RKC) , intent(out) :: integral, abserr
11327 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11328 integer(IK) , intent(out) , contiguous :: sindex(:)
11329 integer(IK) , intent(out) :: neval
11330 integer(IK) , intent(out) :: nint
11331 integer(IK) :: err
11332 end function
11333#endif
11334
11335#if RK1_ENABLED
11336 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11339#endif
11340 use pm_kind, only: RKC => RK1
11341 procedure(real(RKC)) :: getFunc
11342 type(ninf_type) , intent(in) :: lb
11343 type(pinf_type) , intent(in) :: ub
11344 real(RKC) , intent(in) :: abstol
11345 real(RKC) , intent(in) :: reltol
11346 type(GK61_type) , intent(in) :: qrule
11347 type(weps_type) , intent(in) :: help
11348 real(RKC) , intent(out) :: integral, abserr
11349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11350 integer(IK) , intent(out) , contiguous :: sindex(:)
11351 integer(IK) , intent(out) :: neval
11352 integer(IK) , intent(out) :: nint
11353 integer(IK) :: err
11354 end function
11355#endif
11356
11357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11358
11359 end interface
11360
11361 ! QAGS_GKXX
11362
11363 interface getQuadErr
11364
11365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11366
11367#if RK5_ENABLED
11368 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11370 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11371#endif
11372 use pm_kind, only: RKC => RK5
11373 procedure(real(RKC)) :: getFunc
11374 real(RKC) , intent(in) :: lb
11375 real(RKC) , intent(in) :: ub
11376 real(RKC) , intent(in) :: abstol
11377 real(RKC) , intent(in) :: reltol
11378 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11379 type(weps_type) , intent(in) :: help
11380 real(RKC) , intent(out) :: integral, abserr
11381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11382 integer(IK) , intent(out) , contiguous :: sindex(:)
11383 integer(IK) , intent(out) :: neval
11384 integer(IK) , intent(out) :: nint
11385 integer(IK) :: err
11386 end function
11387#endif
11388
11389#if RK4_ENABLED
11390 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11393#endif
11394 use pm_kind, only: RKC => RK4
11395 procedure(real(RKC)) :: getFunc
11396 real(RKC) , intent(in) :: lb
11397 real(RKC) , intent(in) :: ub
11398 real(RKC) , intent(in) :: abstol
11399 real(RKC) , intent(in) :: reltol
11400 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11401 type(weps_type) , intent(in) :: help
11402 real(RKC) , intent(out) :: integral, abserr
11403 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11404 integer(IK) , intent(out) , contiguous :: sindex(:)
11405 integer(IK) , intent(out) :: neval
11406 integer(IK) , intent(out) :: nint
11407 integer(IK) :: err
11408 end function
11409#endif
11410
11411#if RK3_ENABLED
11412 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11414 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11415#endif
11416 use pm_kind, only: RKC => RK3
11417 procedure(real(RKC)) :: getFunc
11418 real(RKC) , intent(in) :: lb
11419 real(RKC) , intent(in) :: ub
11420 real(RKC) , intent(in) :: abstol
11421 real(RKC) , intent(in) :: reltol
11422 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11423 type(weps_type) , intent(in) :: help
11424 real(RKC) , intent(out) :: integral, abserr
11425 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11426 integer(IK) , intent(out) , contiguous :: sindex(:)
11427 integer(IK) , intent(out) :: neval
11428 integer(IK) , intent(out) :: nint
11429 integer(IK) :: err
11430 end function
11431#endif
11432
11433#if RK2_ENABLED
11434 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11436 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11437#endif
11438 use pm_kind, only: RKC => RK2
11439 procedure(real(RKC)) :: getFunc
11440 real(RKC) , intent(in) :: lb
11441 real(RKC) , intent(in) :: ub
11442 real(RKC) , intent(in) :: abstol
11443 real(RKC) , intent(in) :: reltol
11444 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11445 type(weps_type) , intent(in) :: help
11446 real(RKC) , intent(out) :: integral, abserr
11447 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11448 integer(IK) , intent(out) , contiguous :: sindex(:)
11449 integer(IK) , intent(out) :: neval
11450 integer(IK) , intent(out) :: nint
11451 integer(IK) :: err
11452 end function
11453#endif
11454
11455#if RK1_ENABLED
11456 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11458 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11459#endif
11460 use pm_kind, only: RKC => RK1
11461 procedure(real(RKC)) :: getFunc
11462 real(RKC) , intent(in) :: lb
11463 real(RKC) , intent(in) :: ub
11464 real(RKC) , intent(in) :: abstol
11465 real(RKC) , intent(in) :: reltol
11466 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11467 type(weps_type) , intent(in) :: help
11468 real(RKC) , intent(out) :: integral, abserr
11469 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11470 integer(IK) , intent(out) , contiguous :: sindex(:)
11471 integer(IK) , intent(out) :: neval
11472 integer(IK) , intent(out) :: nint
11473 integer(IK) :: err
11474 end function
11475#endif
11476
11477 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11478
11479#if RK5_ENABLED
11480 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11483#endif
11484 use pm_kind, only: RKC => RK5
11485 procedure(real(RKC)) :: getFunc
11486 real(RKC) , intent(in) :: lb
11487 type(pinf_type) , intent(in) :: ub
11488 real(RKC) , intent(in) :: abstol
11489 real(RKC) , intent(in) :: reltol
11490 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11491 type(weps_type) , intent(in) :: help
11492 real(RKC) , intent(out) :: integral, abserr
11493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11494 integer(IK) , intent(out) , contiguous :: sindex(:)
11495 integer(IK) , intent(out) :: neval
11496 integer(IK) , intent(out) :: nint
11497 integer(IK) :: err
11498 end function
11499#endif
11500
11501#if RK4_ENABLED
11502 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11504 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11505#endif
11506 use pm_kind, only: RKC => RK4
11507 procedure(real(RKC)) :: getFunc
11508 real(RKC) , intent(in) :: lb
11509 type(pinf_type) , intent(in) :: ub
11510 real(RKC) , intent(in) :: abstol
11511 real(RKC) , intent(in) :: reltol
11512 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11513 type(weps_type) , intent(in) :: help
11514 real(RKC) , intent(out) :: integral, abserr
11515 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11516 integer(IK) , intent(out) , contiguous :: sindex(:)
11517 integer(IK) , intent(out) :: neval
11518 integer(IK) , intent(out) :: nint
11519 integer(IK) :: err
11520 end function
11521#endif
11522
11523#if RK3_ENABLED
11524 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11527#endif
11528 use pm_kind, only: RKC => RK3
11529 procedure(real(RKC)) :: getFunc
11530 real(RKC) , intent(in) :: lb
11531 type(pinf_type) , intent(in) :: ub
11532 real(RKC) , intent(in) :: abstol
11533 real(RKC) , intent(in) :: reltol
11534 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11535 type(weps_type) , intent(in) :: help
11536 real(RKC) , intent(out) :: integral, abserr
11537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11538 integer(IK) , intent(out) , contiguous :: sindex(:)
11539 integer(IK) , intent(out) :: neval
11540 integer(IK) , intent(out) :: nint
11541 integer(IK) :: err
11542 end function
11543#endif
11544
11545#if RK2_ENABLED
11546 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11548 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11549#endif
11550 use pm_kind, only: RKC => RK2
11551 procedure(real(RKC)) :: getFunc
11552 real(RKC) , intent(in) :: lb
11553 type(pinf_type) , intent(in) :: ub
11554 real(RKC) , intent(in) :: abstol
11555 real(RKC) , intent(in) :: reltol
11556 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11557 type(weps_type) , intent(in) :: help
11558 real(RKC) , intent(out) :: integral, abserr
11559 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11560 integer(IK) , intent(out) , contiguous :: sindex(:)
11561 integer(IK) , intent(out) :: neval
11562 integer(IK) , intent(out) :: nint
11563 integer(IK) :: err
11564 end function
11565#endif
11566
11567#if RK1_ENABLED
11568 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11571#endif
11572 use pm_kind, only: RKC => RK1
11573 procedure(real(RKC)) :: getFunc
11574 real(RKC) , intent(in) :: lb
11575 type(pinf_type) , intent(in) :: ub
11576 real(RKC) , intent(in) :: abstol
11577 real(RKC) , intent(in) :: reltol
11578 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11579 type(weps_type) , intent(in) :: help
11580 real(RKC) , intent(out) :: integral, abserr
11581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11582 integer(IK) , intent(out) , contiguous :: sindex(:)
11583 integer(IK) , intent(out) :: neval
11584 integer(IK) , intent(out) :: nint
11585 integer(IK) :: err
11586 end function
11587#endif
11588
11589 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11590
11591#if RK5_ENABLED
11592 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11595#endif
11596 use pm_kind, only: RKC => RK5
11597 procedure(real(RKC)) :: getFunc
11598 type(ninf_type) , intent(in) :: lb
11599 real(RKC) , intent(in) :: ub
11600 real(RKC) , intent(in) :: abstol
11601 real(RKC) , intent(in) :: reltol
11602 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11603 type(weps_type) , intent(in) :: help
11604 real(RKC) , intent(out) :: integral, abserr
11605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11606 integer(IK) , intent(out) , contiguous :: sindex(:)
11607 integer(IK) , intent(out) :: neval
11608 integer(IK) , intent(out) :: nint
11609 integer(IK) :: err
11610 end function
11611#endif
11612
11613#if RK4_ENABLED
11614 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11617#endif
11618 use pm_kind, only: RKC => RK4
11619 procedure(real(RKC)) :: getFunc
11620 type(ninf_type) , intent(in) :: lb
11621 real(RKC) , intent(in) :: ub
11622 real(RKC) , intent(in) :: abstol
11623 real(RKC) , intent(in) :: reltol
11624 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11625 type(weps_type) , intent(in) :: help
11626 real(RKC) , intent(out) :: integral, abserr
11627 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11628 integer(IK) , intent(out) , contiguous :: sindex(:)
11629 integer(IK) , intent(out) :: neval
11630 integer(IK) , intent(out) :: nint
11631 integer(IK) :: err
11632 end function
11633#endif
11634
11635#if RK3_ENABLED
11636 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11639#endif
11640 use pm_kind, only: RKC => RK3
11641 procedure(real(RKC)) :: getFunc
11642 type(ninf_type) , intent(in) :: lb
11643 real(RKC) , intent(in) :: ub
11644 real(RKC) , intent(in) :: abstol
11645 real(RKC) , intent(in) :: reltol
11646 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11647 type(weps_type) , intent(in) :: help
11648 real(RKC) , intent(out) :: integral, abserr
11649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11650 integer(IK) , intent(out) , contiguous :: sindex(:)
11651 integer(IK) , intent(out) :: neval
11652 integer(IK) , intent(out) :: nint
11653 integer(IK) :: err
11654 end function
11655#endif
11656
11657#if RK2_ENABLED
11658 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11661#endif
11662 use pm_kind, only: RKC => RK2
11663 procedure(real(RKC)) :: getFunc
11664 type(ninf_type) , intent(in) :: lb
11665 real(RKC) , intent(in) :: ub
11666 real(RKC) , intent(in) :: abstol
11667 real(RKC) , intent(in) :: reltol
11668 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11669 type(weps_type) , intent(in) :: help
11670 real(RKC) , intent(out) :: integral, abserr
11671 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11672 integer(IK) , intent(out) , contiguous :: sindex(:)
11673 integer(IK) , intent(out) :: neval
11674 integer(IK) , intent(out) :: nint
11675 integer(IK) :: err
11676 end function
11677#endif
11678
11679#if RK1_ENABLED
11680 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11683#endif
11684 use pm_kind, only: RKC => RK1
11685 procedure(real(RKC)) :: getFunc
11686 type(ninf_type) , intent(in) :: lb
11687 real(RKC) , intent(in) :: ub
11688 real(RKC) , intent(in) :: abstol
11689 real(RKC) , intent(in) :: reltol
11690 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11691 type(weps_type) , intent(in) :: help
11692 real(RKC) , intent(out) :: integral, abserr
11693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11694 integer(IK) , intent(out) , contiguous :: sindex(:)
11695 integer(IK) , intent(out) :: neval
11696 integer(IK) , intent(out) :: nint
11697 integer(IK) :: err
11698 end function
11699#endif
11700
11701 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11702
11703#if RK5_ENABLED
11704 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11707#endif
11708 use pm_kind, only: RKC => RK5
11709 procedure(real(RKC)) :: getFunc
11710 type(ninf_type) , intent(in) :: lb
11711 type(pinf_type) , intent(in) :: ub
11712 real(RKC) , intent(in) :: abstol
11713 real(RKC) , intent(in) :: reltol
11714 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11715 type(weps_type) , intent(in) :: help
11716 real(RKC) , intent(out) :: integral, abserr
11717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11718 integer(IK) , intent(out) , contiguous :: sindex(:)
11719 integer(IK) , intent(out) :: neval
11720 integer(IK) , intent(out) :: nint
11721 integer(IK) :: err
11722 end function
11723#endif
11724
11725#if RK4_ENABLED
11726 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11729#endif
11730 use pm_kind, only: RKC => RK4
11731 procedure(real(RKC)) :: getFunc
11732 type(ninf_type) , intent(in) :: lb
11733 type(pinf_type) , intent(in) :: ub
11734 real(RKC) , intent(in) :: abstol
11735 real(RKC) , intent(in) :: reltol
11736 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11737 type(weps_type) , intent(in) :: help
11738 real(RKC) , intent(out) :: integral, abserr
11739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11740 integer(IK) , intent(out) , contiguous :: sindex(:)
11741 integer(IK) , intent(out) :: neval
11742 integer(IK) , intent(out) :: nint
11743 integer(IK) :: err
11744 end function
11745#endif
11746
11747#if RK3_ENABLED
11748 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11751#endif
11752 use pm_kind, only: RKC => RK3
11753 procedure(real(RKC)) :: getFunc
11754 type(ninf_type) , intent(in) :: lb
11755 type(pinf_type) , intent(in) :: ub
11756 real(RKC) , intent(in) :: abstol
11757 real(RKC) , intent(in) :: reltol
11758 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11759 type(weps_type) , intent(in) :: help
11760 real(RKC) , intent(out) :: integral, abserr
11761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11762 integer(IK) , intent(out) , contiguous :: sindex(:)
11763 integer(IK) , intent(out) :: neval
11764 integer(IK) , intent(out) :: nint
11765 integer(IK) :: err
11766 end function
11767#endif
11768
11769#if RK2_ENABLED
11770 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11773#endif
11774 use pm_kind, only: RKC => RK2
11775 procedure(real(RKC)) :: getFunc
11776 type(ninf_type) , intent(in) :: lb
11777 type(pinf_type) , intent(in) :: ub
11778 real(RKC) , intent(in) :: abstol
11779 real(RKC) , intent(in) :: reltol
11780 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11781 type(weps_type) , intent(in) :: help
11782 real(RKC) , intent(out) :: integral, abserr
11783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11784 integer(IK) , intent(out) , contiguous :: sindex(:)
11785 integer(IK) , intent(out) :: neval
11786 integer(IK) , intent(out) :: nint
11787 integer(IK) :: err
11788 end function
11789#endif
11790
11791#if RK1_ENABLED
11792 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11795#endif
11796 use pm_kind, only: RKC => RK1
11797 procedure(real(RKC)) :: getFunc
11798 type(ninf_type) , intent(in) :: lb
11799 type(pinf_type) , intent(in) :: ub
11800 real(RKC) , intent(in) :: abstol
11801 real(RKC) , intent(in) :: reltol
11802 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11803 type(weps_type) , intent(in) :: help
11804 real(RKC) , intent(out) :: integral, abserr
11805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11806 integer(IK) , intent(out) , contiguous :: sindex(:)
11807 integer(IK) , intent(out) :: neval
11808 integer(IK) , intent(out) :: nint
11809 integer(IK) :: err
11810 end function
11811#endif
11812
11813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11814
11815 end interface
11816
11817!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11818
11819 ! QAGP_GK15
11820
11821 interface getQuadErr
11822
11823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11824
11825#if RK5_ENABLED
11826 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11829#endif
11830 use pm_kind, only: RKC => RK5
11831 procedure(real(RKC)) :: getFunc
11832 real(RKC) , intent(in) :: lb
11833 real(RKC) , intent(in) :: ub
11834 real(RKC) , intent(in) :: abstol
11835 real(RKC) , intent(in) :: reltol
11836 type(GK15_type) , intent(in) :: qrule
11837 real(RKC) , intent(in) , contiguous :: help(:)
11838 real(RKC) , intent(out) :: integral, abserr
11839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11840 integer(IK) , intent(out) , contiguous :: sindex(:)
11841 integer(IK) , intent(out) :: neval
11842 integer(IK) , intent(out) :: nint
11843 integer(IK) :: err
11844 end function
11845#endif
11846
11847#if RK4_ENABLED
11848 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11850 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11851#endif
11852 use pm_kind, only: RKC => RK4
11853 procedure(real(RKC)) :: getFunc
11854 real(RKC) , intent(in) :: lb
11855 real(RKC) , intent(in) :: ub
11856 real(RKC) , intent(in) :: abstol
11857 real(RKC) , intent(in) :: reltol
11858 type(GK15_type) , intent(in) :: qrule
11859 real(RKC) , intent(in) , contiguous :: help(:)
11860 real(RKC) , intent(out) :: integral, abserr
11861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11862 integer(IK) , intent(out) , contiguous :: sindex(:)
11863 integer(IK) , intent(out) :: neval
11864 integer(IK) , intent(out) :: nint
11865 integer(IK) :: err
11866 end function
11867#endif
11868
11869#if RK3_ENABLED
11870 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11872 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11873#endif
11874 use pm_kind, only: RKC => RK3
11875 procedure(real(RKC)) :: getFunc
11876 real(RKC) , intent(in) :: lb
11877 real(RKC) , intent(in) :: ub
11878 real(RKC) , intent(in) :: abstol
11879 real(RKC) , intent(in) :: reltol
11880 type(GK15_type) , intent(in) :: qrule
11881 real(RKC) , intent(in) , contiguous :: help(:)
11882 real(RKC) , intent(out) :: integral, abserr
11883 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11884 integer(IK) , intent(out) , contiguous :: sindex(:)
11885 integer(IK) , intent(out) :: neval
11886 integer(IK) , intent(out) :: nint
11887 integer(IK) :: err
11888 end function
11889#endif
11890
11891#if RK2_ENABLED
11892 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11893#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11894 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11895#endif
11896 use pm_kind, only: RKC => RK2
11897 procedure(real(RKC)) :: getFunc
11898 real(RKC) , intent(in) :: lb
11899 real(RKC) , intent(in) :: ub
11900 real(RKC) , intent(in) :: abstol
11901 real(RKC) , intent(in) :: reltol
11902 type(GK15_type) , intent(in) :: qrule
11903 real(RKC) , intent(in) , contiguous :: help(:)
11904 real(RKC) , intent(out) :: integral, abserr
11905 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11906 integer(IK) , intent(out) , contiguous :: sindex(:)
11907 integer(IK) , intent(out) :: neval
11908 integer(IK) , intent(out) :: nint
11909 integer(IK) :: err
11910 end function
11911#endif
11912
11913#if RK1_ENABLED
11914 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11916 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11917#endif
11918 use pm_kind, only: RKC => RK1
11919 procedure(real(RKC)) :: getFunc
11920 real(RKC) , intent(in) :: lb
11921 real(RKC) , intent(in) :: ub
11922 real(RKC) , intent(in) :: abstol
11923 real(RKC) , intent(in) :: reltol
11924 type(GK15_type) , intent(in) :: qrule
11925 real(RKC) , intent(in) , contiguous :: help(:)
11926 real(RKC) , intent(out) :: integral, abserr
11927 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11928 integer(IK) , intent(out) , contiguous :: sindex(:)
11929 integer(IK) , intent(out) :: neval
11930 integer(IK) , intent(out) :: nint
11931 integer(IK) :: err
11932 end function
11933#endif
11934
11935 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11936
11937#if RK5_ENABLED
11938 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
11941#endif
11942 use pm_kind, only: RKC => RK5
11943 procedure(real(RKC)) :: getFunc
11944 real(RKC) , intent(in) :: lb
11945 type(pinf_type) , intent(in) :: ub
11946 real(RKC) , intent(in) :: abstol
11947 real(RKC) , intent(in) :: reltol
11948 type(GK15_type) , intent(in) :: qrule
11949 real(RKC) , intent(in) , contiguous :: help(:)
11950 real(RKC) , intent(out) :: integral, abserr
11951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11952 integer(IK) , intent(out) , contiguous :: sindex(:)
11953 integer(IK) , intent(out) :: neval
11954 integer(IK) , intent(out) :: nint
11955 integer(IK) :: err
11956 end function
11957#endif
11958
11959#if RK4_ENABLED
11960 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
11963#endif
11964 use pm_kind, only: RKC => RK4
11965 procedure(real(RKC)) :: getFunc
11966 real(RKC) , intent(in) :: lb
11967 type(pinf_type) , intent(in) :: ub
11968 real(RKC) , intent(in) :: abstol
11969 real(RKC) , intent(in) :: reltol
11970 type(GK15_type) , intent(in) :: qrule
11971 real(RKC) , intent(in) , contiguous :: help(:)
11972 real(RKC) , intent(out) :: integral, abserr
11973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11974 integer(IK) , intent(out) , contiguous :: sindex(:)
11975 integer(IK) , intent(out) :: neval
11976 integer(IK) , intent(out) :: nint
11977 integer(IK) :: err
11978 end function
11979#endif
11980
11981#if RK3_ENABLED
11982 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
11985#endif
11986 use pm_kind, only: RKC => RK3
11987 procedure(real(RKC)) :: getFunc
11988 real(RKC) , intent(in) :: lb
11989 type(pinf_type) , intent(in) :: ub
11990 real(RKC) , intent(in) :: abstol
11991 real(RKC) , intent(in) :: reltol
11992 type(GK15_type) , intent(in) :: qrule
11993 real(RKC) , intent(in) , contiguous :: help(:)
11994 real(RKC) , intent(out) :: integral, abserr
11995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11996 integer(IK) , intent(out) , contiguous :: sindex(:)
11997 integer(IK) , intent(out) :: neval
11998 integer(IK) , intent(out) :: nint
11999 integer(IK) :: err
12000 end function
12001#endif
12002
12003#if RK2_ENABLED
12004 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12006 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12007#endif
12008 use pm_kind, only: RKC => RK2
12009 procedure(real(RKC)) :: getFunc
12010 real(RKC) , intent(in) :: lb
12011 type(pinf_type) , intent(in) :: ub
12012 real(RKC) , intent(in) :: abstol
12013 real(RKC) , intent(in) :: reltol
12014 type(GK15_type) , intent(in) :: qrule
12015 real(RKC) , intent(in) , contiguous :: help(:)
12016 real(RKC) , intent(out) :: integral, abserr
12017 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12018 integer(IK) , intent(out) , contiguous :: sindex(:)
12019 integer(IK) , intent(out) :: neval
12020 integer(IK) , intent(out) :: nint
12021 integer(IK) :: err
12022 end function
12023#endif
12024
12025#if RK1_ENABLED
12026 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12028 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12029#endif
12030 use pm_kind, only: RKC => RK1
12031 procedure(real(RKC)) :: getFunc
12032 real(RKC) , intent(in) :: lb
12033 type(pinf_type) , intent(in) :: ub
12034 real(RKC) , intent(in) :: abstol
12035 real(RKC) , intent(in) :: reltol
12036 type(GK15_type) , intent(in) :: qrule
12037 real(RKC) , intent(in) , contiguous :: help(:)
12038 real(RKC) , intent(out) :: integral, abserr
12039 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12040 integer(IK) , intent(out) , contiguous :: sindex(:)
12041 integer(IK) , intent(out) :: neval
12042 integer(IK) , intent(out) :: nint
12043 integer(IK) :: err
12044 end function
12045#endif
12046
12047 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12048
12049#if RK5_ENABLED
12050 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12053#endif
12054 use pm_kind, only: RKC => RK5
12055 procedure(real(RKC)) :: getFunc
12056 type(ninf_type) , intent(in) :: lb
12057 real(RKC) , intent(in) :: ub
12058 real(RKC) , intent(in) :: abstol
12059 real(RKC) , intent(in) :: reltol
12060 type(GK15_type) , intent(in) :: qrule
12061 real(RKC) , intent(in) , contiguous :: help(:)
12062 real(RKC) , intent(out) :: integral, abserr
12063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12064 integer(IK) , intent(out) , contiguous :: sindex(:)
12065 integer(IK) , intent(out) :: neval
12066 integer(IK) , intent(out) :: nint
12067 integer(IK) :: err
12068 end function
12069#endif
12070
12071#if RK4_ENABLED
12072 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12075#endif
12076 use pm_kind, only: RKC => RK4
12077 procedure(real(RKC)) :: getFunc
12078 type(ninf_type) , intent(in) :: lb
12079 real(RKC) , intent(in) :: ub
12080 real(RKC) , intent(in) :: abstol
12081 real(RKC) , intent(in) :: reltol
12082 type(GK15_type) , intent(in) :: qrule
12083 real(RKC) , intent(in) , contiguous :: help(:)
12084 real(RKC) , intent(out) :: integral, abserr
12085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12086 integer(IK) , intent(out) , contiguous :: sindex(:)
12087 integer(IK) , intent(out) :: neval
12088 integer(IK) , intent(out) :: nint
12089 integer(IK) :: err
12090 end function
12091#endif
12092
12093#if RK3_ENABLED
12094 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12097#endif
12098 use pm_kind, only: RKC => RK3
12099 procedure(real(RKC)) :: getFunc
12100 type(ninf_type) , intent(in) :: lb
12101 real(RKC) , intent(in) :: ub
12102 real(RKC) , intent(in) :: abstol
12103 real(RKC) , intent(in) :: reltol
12104 type(GK15_type) , intent(in) :: qrule
12105 real(RKC) , intent(in) , contiguous :: help(:)
12106 real(RKC) , intent(out) :: integral, abserr
12107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12108 integer(IK) , intent(out) , contiguous :: sindex(:)
12109 integer(IK) , intent(out) :: neval
12110 integer(IK) , intent(out) :: nint
12111 integer(IK) :: err
12112 end function
12113#endif
12114
12115#if RK2_ENABLED
12116 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12117#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12118 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12119#endif
12120 use pm_kind, only: RKC => RK2
12121 procedure(real(RKC)) :: getFunc
12122 type(ninf_type) , intent(in) :: lb
12123 real(RKC) , intent(in) :: ub
12124 real(RKC) , intent(in) :: abstol
12125 real(RKC) , intent(in) :: reltol
12126 type(GK15_type) , intent(in) :: qrule
12127 real(RKC) , intent(in) , contiguous :: help(:)
12128 real(RKC) , intent(out) :: integral, abserr
12129 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12130 integer(IK) , intent(out) , contiguous :: sindex(:)
12131 integer(IK) , intent(out) :: neval
12132 integer(IK) , intent(out) :: nint
12133 integer(IK) :: err
12134 end function
12135#endif
12136
12137#if RK1_ENABLED
12138 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12140 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12141#endif
12142 use pm_kind, only: RKC => RK1
12143 procedure(real(RKC)) :: getFunc
12144 type(ninf_type) , intent(in) :: lb
12145 real(RKC) , intent(in) :: ub
12146 real(RKC) , intent(in) :: abstol
12147 real(RKC) , intent(in) :: reltol
12148 type(GK15_type) , intent(in) :: qrule
12149 real(RKC) , intent(in) , contiguous :: help(:)
12150 real(RKC) , intent(out) :: integral, abserr
12151 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12152 integer(IK) , intent(out) , contiguous :: sindex(:)
12153 integer(IK) , intent(out) :: neval
12154 integer(IK) , intent(out) :: nint
12155 integer(IK) :: err
12156 end function
12157#endif
12158
12159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12160
12161#if RK5_ENABLED
12162 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12165#endif
12166 use pm_kind, only: RKC => RK5
12167 procedure(real(RKC)) :: getFunc
12168 type(ninf_type) , intent(in) :: lb
12169 type(pinf_type) , intent(in) :: ub
12170 real(RKC) , intent(in) :: abstol
12171 real(RKC) , intent(in) :: reltol
12172 type(GK15_type) , intent(in) :: qrule
12173 real(RKC) , intent(in) , contiguous :: help(:)
12174 real(RKC) , intent(out) :: integral, abserr
12175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12176 integer(IK) , intent(out) , contiguous :: sindex(:)
12177 integer(IK) , intent(out) :: neval
12178 integer(IK) , intent(out) :: nint
12179 integer(IK) :: err
12180 end function
12181#endif
12182
12183#if RK4_ENABLED
12184 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12187#endif
12188 use pm_kind, only: RKC => RK4
12189 procedure(real(RKC)) :: getFunc
12190 type(ninf_type) , intent(in) :: lb
12191 type(pinf_type) , intent(in) :: ub
12192 real(RKC) , intent(in) :: abstol
12193 real(RKC) , intent(in) :: reltol
12194 type(GK15_type) , intent(in) :: qrule
12195 real(RKC) , intent(in) , contiguous :: help(:)
12196 real(RKC) , intent(out) :: integral, abserr
12197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12198 integer(IK) , intent(out) , contiguous :: sindex(:)
12199 integer(IK) , intent(out) :: neval
12200 integer(IK) , intent(out) :: nint
12201 integer(IK) :: err
12202 end function
12203#endif
12204
12205#if RK3_ENABLED
12206 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12209#endif
12210 use pm_kind, only: RKC => RK3
12211 procedure(real(RKC)) :: getFunc
12212 type(ninf_type) , intent(in) :: lb
12213 type(pinf_type) , intent(in) :: ub
12214 real(RKC) , intent(in) :: abstol
12215 real(RKC) , intent(in) :: reltol
12216 type(GK15_type) , intent(in) :: qrule
12217 real(RKC) , intent(in) , contiguous :: help(:)
12218 real(RKC) , intent(out) :: integral, abserr
12219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12220 integer(IK) , intent(out) , contiguous :: sindex(:)
12221 integer(IK) , intent(out) :: neval
12222 integer(IK) , intent(out) :: nint
12223 integer(IK) :: err
12224 end function
12225#endif
12226
12227#if RK2_ENABLED
12228 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12230 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12231#endif
12232 use pm_kind, only: RKC => RK2
12233 procedure(real(RKC)) :: getFunc
12234 type(ninf_type) , intent(in) :: lb
12235 type(pinf_type) , intent(in) :: ub
12236 real(RKC) , intent(in) :: abstol
12237 real(RKC) , intent(in) :: reltol
12238 type(GK15_type) , intent(in) :: qrule
12239 real(RKC) , intent(in) , contiguous :: help(:)
12240 real(RKC) , intent(out) :: integral, abserr
12241 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12242 integer(IK) , intent(out) , contiguous :: sindex(:)
12243 integer(IK) , intent(out) :: neval
12244 integer(IK) , intent(out) :: nint
12245 integer(IK) :: err
12246 end function
12247#endif
12248
12249#if RK1_ENABLED
12250 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12252 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12253#endif
12254 use pm_kind, only: RKC => RK1
12255 procedure(real(RKC)) :: getFunc
12256 type(ninf_type) , intent(in) :: lb
12257 type(pinf_type) , intent(in) :: ub
12258 real(RKC) , intent(in) :: abstol
12259 real(RKC) , intent(in) :: reltol
12260 type(GK15_type) , intent(in) :: qrule
12261 real(RKC) , intent(in) , contiguous :: help(:)
12262 real(RKC) , intent(out) :: integral, abserr
12263 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12264 integer(IK) , intent(out) , contiguous :: sindex(:)
12265 integer(IK) , intent(out) :: neval
12266 integer(IK) , intent(out) :: nint
12267 integer(IK) :: err
12268 end function
12269#endif
12270
12271 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12272
12273 end interface
12274
12275 ! QAGP_GK21
12276
12277 interface getQuadErr
12278
12279 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12280
12281#if RK5_ENABLED
12282 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12285#endif
12286 use pm_kind, only: RKC => RK5
12287 procedure(real(RKC)) :: getFunc
12288 real(RKC) , intent(in) :: lb
12289 real(RKC) , intent(in) :: ub
12290 real(RKC) , intent(in) :: abstol
12291 real(RKC) , intent(in) :: reltol
12292 type(GK21_type) , intent(in) :: qrule
12293 real(RKC) , intent(in) , contiguous :: help(:)
12294 real(RKC) , intent(out) :: integral, abserr
12295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12296 integer(IK) , intent(out) , contiguous :: sindex(:)
12297 integer(IK) , intent(out) :: neval
12298 integer(IK) , intent(out) :: nint
12299 integer(IK) :: err
12300 end function
12301#endif
12302
12303#if RK4_ENABLED
12304 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12307#endif
12308 use pm_kind, only: RKC => RK4
12309 procedure(real(RKC)) :: getFunc
12310 real(RKC) , intent(in) :: lb
12311 real(RKC) , intent(in) :: ub
12312 real(RKC) , intent(in) :: abstol
12313 real(RKC) , intent(in) :: reltol
12314 type(GK21_type) , intent(in) :: qrule
12315 real(RKC) , intent(in) , contiguous :: help(:)
12316 real(RKC) , intent(out) :: integral, abserr
12317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12318 integer(IK) , intent(out) , contiguous :: sindex(:)
12319 integer(IK) , intent(out) :: neval
12320 integer(IK) , intent(out) :: nint
12321 integer(IK) :: err
12322 end function
12323#endif
12324
12325#if RK3_ENABLED
12326 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12328 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12329#endif
12330 use pm_kind, only: RKC => RK3
12331 procedure(real(RKC)) :: getFunc
12332 real(RKC) , intent(in) :: lb
12333 real(RKC) , intent(in) :: ub
12334 real(RKC) , intent(in) :: abstol
12335 real(RKC) , intent(in) :: reltol
12336 type(GK21_type) , intent(in) :: qrule
12337 real(RKC) , intent(in) , contiguous :: help(:)
12338 real(RKC) , intent(out) :: integral, abserr
12339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12340 integer(IK) , intent(out) , contiguous :: sindex(:)
12341 integer(IK) , intent(out) :: neval
12342 integer(IK) , intent(out) :: nint
12343 integer(IK) :: err
12344 end function
12345#endif
12346
12347#if RK2_ENABLED
12348 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12350 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12351#endif
12352 use pm_kind, only: RKC => RK2
12353 procedure(real(RKC)) :: getFunc
12354 real(RKC) , intent(in) :: lb
12355 real(RKC) , intent(in) :: ub
12356 real(RKC) , intent(in) :: abstol
12357 real(RKC) , intent(in) :: reltol
12358 type(GK21_type) , intent(in) :: qrule
12359 real(RKC) , intent(in) , contiguous :: help(:)
12360 real(RKC) , intent(out) :: integral, abserr
12361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12362 integer(IK) , intent(out) , contiguous :: sindex(:)
12363 integer(IK) , intent(out) :: neval
12364 integer(IK) , intent(out) :: nint
12365 integer(IK) :: err
12366 end function
12367#endif
12368
12369#if RK1_ENABLED
12370 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12372 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12373#endif
12374 use pm_kind, only: RKC => RK1
12375 procedure(real(RKC)) :: getFunc
12376 real(RKC) , intent(in) :: lb
12377 real(RKC) , intent(in) :: ub
12378 real(RKC) , intent(in) :: abstol
12379 real(RKC) , intent(in) :: reltol
12380 type(GK21_type) , intent(in) :: qrule
12381 real(RKC) , intent(in) , contiguous :: help(:)
12382 real(RKC) , intent(out) :: integral, abserr
12383 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12384 integer(IK) , intent(out) , contiguous :: sindex(:)
12385 integer(IK) , intent(out) :: neval
12386 integer(IK) , intent(out) :: nint
12387 integer(IK) :: err
12388 end function
12389#endif
12390
12391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12392
12393#if RK5_ENABLED
12394 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12397#endif
12398 use pm_kind, only: RKC => RK5
12399 procedure(real(RKC)) :: getFunc
12400 real(RKC) , intent(in) :: lb
12401 type(pinf_type) , intent(in) :: ub
12402 real(RKC) , intent(in) :: abstol
12403 real(RKC) , intent(in) :: reltol
12404 type(GK21_type) , intent(in) :: qrule
12405 real(RKC) , intent(in) , contiguous :: help(:)
12406 real(RKC) , intent(out) :: integral, abserr
12407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12408 integer(IK) , intent(out) , contiguous :: sindex(:)
12409 integer(IK) , intent(out) :: neval
12410 integer(IK) , intent(out) :: nint
12411 integer(IK) :: err
12412 end function
12413#endif
12414
12415#if RK4_ENABLED
12416 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12419#endif
12420 use pm_kind, only: RKC => RK4
12421 procedure(real(RKC)) :: getFunc
12422 real(RKC) , intent(in) :: lb
12423 type(pinf_type) , intent(in) :: ub
12424 real(RKC) , intent(in) :: abstol
12425 real(RKC) , intent(in) :: reltol
12426 type(GK21_type) , intent(in) :: qrule
12427 real(RKC) , intent(in) , contiguous :: help(:)
12428 real(RKC) , intent(out) :: integral, abserr
12429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12430 integer(IK) , intent(out) , contiguous :: sindex(:)
12431 integer(IK) , intent(out) :: neval
12432 integer(IK) , intent(out) :: nint
12433 integer(IK) :: err
12434 end function
12435#endif
12436
12437#if RK3_ENABLED
12438 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12441#endif
12442 use pm_kind, only: RKC => RK3
12443 procedure(real(RKC)) :: getFunc
12444 real(RKC) , intent(in) :: lb
12445 type(pinf_type) , intent(in) :: ub
12446 real(RKC) , intent(in) :: abstol
12447 real(RKC) , intent(in) :: reltol
12448 type(GK21_type) , intent(in) :: qrule
12449 real(RKC) , intent(in) , contiguous :: help(:)
12450 real(RKC) , intent(out) :: integral, abserr
12451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12452 integer(IK) , intent(out) , contiguous :: sindex(:)
12453 integer(IK) , intent(out) :: neval
12454 integer(IK) , intent(out) :: nint
12455 integer(IK) :: err
12456 end function
12457#endif
12458
12459#if RK2_ENABLED
12460 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12462 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12463#endif
12464 use pm_kind, only: RKC => RK2
12465 procedure(real(RKC)) :: getFunc
12466 real(RKC) , intent(in) :: lb
12467 type(pinf_type) , intent(in) :: ub
12468 real(RKC) , intent(in) :: abstol
12469 real(RKC) , intent(in) :: reltol
12470 type(GK21_type) , intent(in) :: qrule
12471 real(RKC) , intent(in) , contiguous :: help(:)
12472 real(RKC) , intent(out) :: integral, abserr
12473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12474 integer(IK) , intent(out) , contiguous :: sindex(:)
12475 integer(IK) , intent(out) :: neval
12476 integer(IK) , intent(out) :: nint
12477 integer(IK) :: err
12478 end function
12479#endif
12480
12481#if RK1_ENABLED
12482 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12483#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12484 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12485#endif
12486 use pm_kind, only: RKC => RK1
12487 procedure(real(RKC)) :: getFunc
12488 real(RKC) , intent(in) :: lb
12489 type(pinf_type) , intent(in) :: ub
12490 real(RKC) , intent(in) :: abstol
12491 real(RKC) , intent(in) :: reltol
12492 type(GK21_type) , intent(in) :: qrule
12493 real(RKC) , intent(in) , contiguous :: help(:)
12494 real(RKC) , intent(out) :: integral, abserr
12495 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12496 integer(IK) , intent(out) , contiguous :: sindex(:)
12497 integer(IK) , intent(out) :: neval
12498 integer(IK) , intent(out) :: nint
12499 integer(IK) :: err
12500 end function
12501#endif
12502
12503 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12504
12505#if RK5_ENABLED
12506 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12509#endif
12510 use pm_kind, only: RKC => RK5
12511 procedure(real(RKC)) :: getFunc
12512 type(ninf_type) , intent(in) :: lb
12513 real(RKC) , intent(in) :: ub
12514 real(RKC) , intent(in) :: abstol
12515 real(RKC) , intent(in) :: reltol
12516 type(GK21_type) , intent(in) :: qrule
12517 real(RKC) , intent(in) , contiguous :: help(:)
12518 real(RKC) , intent(out) :: integral, abserr
12519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12520 integer(IK) , intent(out) , contiguous :: sindex(:)
12521 integer(IK) , intent(out) :: neval
12522 integer(IK) , intent(out) :: nint
12523 integer(IK) :: err
12524 end function
12525#endif
12526
12527#if RK4_ENABLED
12528 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12531#endif
12532 use pm_kind, only: RKC => RK4
12533 procedure(real(RKC)) :: getFunc
12534 type(ninf_type) , intent(in) :: lb
12535 real(RKC) , intent(in) :: ub
12536 real(RKC) , intent(in) :: abstol
12537 real(RKC) , intent(in) :: reltol
12538 type(GK21_type) , intent(in) :: qrule
12539 real(RKC) , intent(in) , contiguous :: help(:)
12540 real(RKC) , intent(out) :: integral, abserr
12541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12542 integer(IK) , intent(out) , contiguous :: sindex(:)
12543 integer(IK) , intent(out) :: neval
12544 integer(IK) , intent(out) :: nint
12545 integer(IK) :: err
12546 end function
12547#endif
12548
12549#if RK3_ENABLED
12550 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12553#endif
12554 use pm_kind, only: RKC => RK3
12555 procedure(real(RKC)) :: getFunc
12556 type(ninf_type) , intent(in) :: lb
12557 real(RKC) , intent(in) :: ub
12558 real(RKC) , intent(in) :: abstol
12559 real(RKC) , intent(in) :: reltol
12560 type(GK21_type) , intent(in) :: qrule
12561 real(RKC) , intent(in) , contiguous :: help(:)
12562 real(RKC) , intent(out) :: integral, abserr
12563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12564 integer(IK) , intent(out) , contiguous :: sindex(:)
12565 integer(IK) , intent(out) :: neval
12566 integer(IK) , intent(out) :: nint
12567 integer(IK) :: err
12568 end function
12569#endif
12570
12571#if RK2_ENABLED
12572 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12574 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12575#endif
12576 use pm_kind, only: RKC => RK2
12577 procedure(real(RKC)) :: getFunc
12578 type(ninf_type) , intent(in) :: lb
12579 real(RKC) , intent(in) :: ub
12580 real(RKC) , intent(in) :: abstol
12581 real(RKC) , intent(in) :: reltol
12582 type(GK21_type) , intent(in) :: qrule
12583 real(RKC) , intent(in) , contiguous :: help(:)
12584 real(RKC) , intent(out) :: integral, abserr
12585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12586 integer(IK) , intent(out) , contiguous :: sindex(:)
12587 integer(IK) , intent(out) :: neval
12588 integer(IK) , intent(out) :: nint
12589 integer(IK) :: err
12590 end function
12591#endif
12592
12593#if RK1_ENABLED
12594 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12596 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12597#endif
12598 use pm_kind, only: RKC => RK1
12599 procedure(real(RKC)) :: getFunc
12600 type(ninf_type) , intent(in) :: lb
12601 real(RKC) , intent(in) :: ub
12602 real(RKC) , intent(in) :: abstol
12603 real(RKC) , intent(in) :: reltol
12604 type(GK21_type) , intent(in) :: qrule
12605 real(RKC) , intent(in) , contiguous :: help(:)
12606 real(RKC) , intent(out) :: integral, abserr
12607 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12608 integer(IK) , intent(out) , contiguous :: sindex(:)
12609 integer(IK) , intent(out) :: neval
12610 integer(IK) , intent(out) :: nint
12611 integer(IK) :: err
12612 end function
12613#endif
12614
12615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12616
12617#if RK5_ENABLED
12618 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12621#endif
12622 use pm_kind, only: RKC => RK5
12623 procedure(real(RKC)) :: getFunc
12624 type(ninf_type) , intent(in) :: lb
12625 type(pinf_type) , intent(in) :: ub
12626 real(RKC) , intent(in) :: abstol
12627 real(RKC) , intent(in) :: reltol
12628 type(GK21_type) , intent(in) :: qrule
12629 real(RKC) , intent(in) , contiguous :: help(:)
12630 real(RKC) , intent(out) :: integral, abserr
12631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12632 integer(IK) , intent(out) , contiguous :: sindex(:)
12633 integer(IK) , intent(out) :: neval
12634 integer(IK) , intent(out) :: nint
12635 integer(IK) :: err
12636 end function
12637#endif
12638
12639#if RK4_ENABLED
12640 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12642 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12643#endif
12644 use pm_kind, only: RKC => RK4
12645 procedure(real(RKC)) :: getFunc
12646 type(ninf_type) , intent(in) :: lb
12647 type(pinf_type) , intent(in) :: ub
12648 real(RKC) , intent(in) :: abstol
12649 real(RKC) , intent(in) :: reltol
12650 type(GK21_type) , intent(in) :: qrule
12651 real(RKC) , intent(in) , contiguous :: help(:)
12652 real(RKC) , intent(out) :: integral, abserr
12653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12654 integer(IK) , intent(out) , contiguous :: sindex(:)
12655 integer(IK) , intent(out) :: neval
12656 integer(IK) , intent(out) :: nint
12657 integer(IK) :: err
12658 end function
12659#endif
12660
12661#if RK3_ENABLED
12662 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12665#endif
12666 use pm_kind, only: RKC => RK3
12667 procedure(real(RKC)) :: getFunc
12668 type(ninf_type) , intent(in) :: lb
12669 type(pinf_type) , intent(in) :: ub
12670 real(RKC) , intent(in) :: abstol
12671 real(RKC) , intent(in) :: reltol
12672 type(GK21_type) , intent(in) :: qrule
12673 real(RKC) , intent(in) , contiguous :: help(:)
12674 real(RKC) , intent(out) :: integral, abserr
12675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12676 integer(IK) , intent(out) , contiguous :: sindex(:)
12677 integer(IK) , intent(out) :: neval
12678 integer(IK) , intent(out) :: nint
12679 integer(IK) :: err
12680 end function
12681#endif
12682
12683#if RK2_ENABLED
12684 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12685#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12686 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12687#endif
12688 use pm_kind, only: RKC => RK2
12689 procedure(real(RKC)) :: getFunc
12690 type(ninf_type) , intent(in) :: lb
12691 type(pinf_type) , intent(in) :: ub
12692 real(RKC) , intent(in) :: abstol
12693 real(RKC) , intent(in) :: reltol
12694 type(GK21_type) , intent(in) :: qrule
12695 real(RKC) , intent(in) , contiguous :: help(:)
12696 real(RKC) , intent(out) :: integral, abserr
12697 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12698 integer(IK) , intent(out) , contiguous :: sindex(:)
12699 integer(IK) , intent(out) :: neval
12700 integer(IK) , intent(out) :: nint
12701 integer(IK) :: err
12702 end function
12703#endif
12704
12705#if RK1_ENABLED
12706 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12707#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12708 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12709#endif
12710 use pm_kind, only: RKC => RK1
12711 procedure(real(RKC)) :: getFunc
12712 type(ninf_type) , intent(in) :: lb
12713 type(pinf_type) , intent(in) :: ub
12714 real(RKC) , intent(in) :: abstol
12715 real(RKC) , intent(in) :: reltol
12716 type(GK21_type) , intent(in) :: qrule
12717 real(RKC) , intent(in) , contiguous :: help(:)
12718 real(RKC) , intent(out) :: integral, abserr
12719 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12720 integer(IK) , intent(out) , contiguous :: sindex(:)
12721 integer(IK) , intent(out) :: neval
12722 integer(IK) , intent(out) :: nint
12723 integer(IK) :: err
12724 end function
12725#endif
12726
12727 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12728
12729 end interface
12730
12731 ! QAGP_GK31
12732
12733 interface getQuadErr
12734
12735 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12736
12737#if RK5_ENABLED
12738 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12741#endif
12742 use pm_kind, only: RKC => RK5
12743 procedure(real(RKC)) :: getFunc
12744 real(RKC) , intent(in) :: lb
12745 real(RKC) , intent(in) :: ub
12746 real(RKC) , intent(in) :: abstol
12747 real(RKC) , intent(in) :: reltol
12748 type(GK31_type) , intent(in) :: qrule
12749 real(RKC) , intent(in) , contiguous :: help(:)
12750 real(RKC) , intent(out) :: integral, abserr
12751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12752 integer(IK) , intent(out) , contiguous :: sindex(:)
12753 integer(IK) , intent(out) :: neval
12754 integer(IK) , intent(out) :: nint
12755 integer(IK) :: err
12756 end function
12757#endif
12758
12759#if RK4_ENABLED
12760 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12762 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12763#endif
12764 use pm_kind, only: RKC => RK4
12765 procedure(real(RKC)) :: getFunc
12766 real(RKC) , intent(in) :: lb
12767 real(RKC) , intent(in) :: ub
12768 real(RKC) , intent(in) :: abstol
12769 real(RKC) , intent(in) :: reltol
12770 type(GK31_type) , intent(in) :: qrule
12771 real(RKC) , intent(in) , contiguous :: help(:)
12772 real(RKC) , intent(out) :: integral, abserr
12773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12774 integer(IK) , intent(out) , contiguous :: sindex(:)
12775 integer(IK) , intent(out) :: neval
12776 integer(IK) , intent(out) :: nint
12777 integer(IK) :: err
12778 end function
12779#endif
12780
12781#if RK3_ENABLED
12782 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12784 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12785#endif
12786 use pm_kind, only: RKC => RK3
12787 procedure(real(RKC)) :: getFunc
12788 real(RKC) , intent(in) :: lb
12789 real(RKC) , intent(in) :: ub
12790 real(RKC) , intent(in) :: abstol
12791 real(RKC) , intent(in) :: reltol
12792 type(GK31_type) , intent(in) :: qrule
12793 real(RKC) , intent(in) , contiguous :: help(:)
12794 real(RKC) , intent(out) :: integral, abserr
12795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12796 integer(IK) , intent(out) , contiguous :: sindex(:)
12797 integer(IK) , intent(out) :: neval
12798 integer(IK) , intent(out) :: nint
12799 integer(IK) :: err
12800 end function
12801#endif
12802
12803#if RK2_ENABLED
12804 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12806 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12807#endif
12808 use pm_kind, only: RKC => RK2
12809 procedure(real(RKC)) :: getFunc
12810 real(RKC) , intent(in) :: lb
12811 real(RKC) , intent(in) :: ub
12812 real(RKC) , intent(in) :: abstol
12813 real(RKC) , intent(in) :: reltol
12814 type(GK31_type) , intent(in) :: qrule
12815 real(RKC) , intent(in) , contiguous :: help(:)
12816 real(RKC) , intent(out) :: integral, abserr
12817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12818 integer(IK) , intent(out) , contiguous :: sindex(:)
12819 integer(IK) , intent(out) :: neval
12820 integer(IK) , intent(out) :: nint
12821 integer(IK) :: err
12822 end function
12823#endif
12824
12825#if RK1_ENABLED
12826 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12829#endif
12830 use pm_kind, only: RKC => RK1
12831 procedure(real(RKC)) :: getFunc
12832 real(RKC) , intent(in) :: lb
12833 real(RKC) , intent(in) :: ub
12834 real(RKC) , intent(in) :: abstol
12835 real(RKC) , intent(in) :: reltol
12836 type(GK31_type) , intent(in) :: qrule
12837 real(RKC) , intent(in) , contiguous :: help(:)
12838 real(RKC) , intent(out) :: integral, abserr
12839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12840 integer(IK) , intent(out) , contiguous :: sindex(:)
12841 integer(IK) , intent(out) :: neval
12842 integer(IK) , intent(out) :: nint
12843 integer(IK) :: err
12844 end function
12845#endif
12846
12847 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12848
12849#if RK5_ENABLED
12850 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12853#endif
12854 use pm_kind, only: RKC => RK5
12855 procedure(real(RKC)) :: getFunc
12856 real(RKC) , intent(in) :: lb
12857 type(pinf_type) , intent(in) :: ub
12858 real(RKC) , intent(in) :: abstol
12859 real(RKC) , intent(in) :: reltol
12860 type(GK31_type) , intent(in) :: qrule
12861 real(RKC) , intent(in) , contiguous :: help(:)
12862 real(RKC) , intent(out) :: integral, abserr
12863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12864 integer(IK) , intent(out) , contiguous :: sindex(:)
12865 integer(IK) , intent(out) :: neval
12866 integer(IK) , intent(out) :: nint
12867 integer(IK) :: err
12868 end function
12869#endif
12870
12871#if RK4_ENABLED
12872 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12875#endif
12876 use pm_kind, only: RKC => RK4
12877 procedure(real(RKC)) :: getFunc
12878 real(RKC) , intent(in) :: lb
12879 type(pinf_type) , intent(in) :: ub
12880 real(RKC) , intent(in) :: abstol
12881 real(RKC) , intent(in) :: reltol
12882 type(GK31_type) , intent(in) :: qrule
12883 real(RKC) , intent(in) , contiguous :: help(:)
12884 real(RKC) , intent(out) :: integral, abserr
12885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12886 integer(IK) , intent(out) , contiguous :: sindex(:)
12887 integer(IK) , intent(out) :: neval
12888 integer(IK) , intent(out) :: nint
12889 integer(IK) :: err
12890 end function
12891#endif
12892
12893#if RK3_ENABLED
12894 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12897#endif
12898 use pm_kind, only: RKC => RK3
12899 procedure(real(RKC)) :: getFunc
12900 real(RKC) , intent(in) :: lb
12901 type(pinf_type) , intent(in) :: ub
12902 real(RKC) , intent(in) :: abstol
12903 real(RKC) , intent(in) :: reltol
12904 type(GK31_type) , intent(in) :: qrule
12905 real(RKC) , intent(in) , contiguous :: help(:)
12906 real(RKC) , intent(out) :: integral, abserr
12907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12908 integer(IK) , intent(out) , contiguous :: sindex(:)
12909 integer(IK) , intent(out) :: neval
12910 integer(IK) , intent(out) :: nint
12911 integer(IK) :: err
12912 end function
12913#endif
12914
12915#if RK2_ENABLED
12916 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12919#endif
12920 use pm_kind, only: RKC => RK2
12921 procedure(real(RKC)) :: getFunc
12922 real(RKC) , intent(in) :: lb
12923 type(pinf_type) , intent(in) :: ub
12924 real(RKC) , intent(in) :: abstol
12925 real(RKC) , intent(in) :: reltol
12926 type(GK31_type) , intent(in) :: qrule
12927 real(RKC) , intent(in) , contiguous :: help(:)
12928 real(RKC) , intent(out) :: integral, abserr
12929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12930 integer(IK) , intent(out) , contiguous :: sindex(:)
12931 integer(IK) , intent(out) :: neval
12932 integer(IK) , intent(out) :: nint
12933 integer(IK) :: err
12934 end function
12935#endif
12936
12937#if RK1_ENABLED
12938 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
12941#endif
12942 use pm_kind, only: RKC => RK1
12943 procedure(real(RKC)) :: getFunc
12944 real(RKC) , intent(in) :: lb
12945 type(pinf_type) , intent(in) :: ub
12946 real(RKC) , intent(in) :: abstol
12947 real(RKC) , intent(in) :: reltol
12948 type(GK31_type) , intent(in) :: qrule
12949 real(RKC) , intent(in) , contiguous :: help(:)
12950 real(RKC) , intent(out) :: integral, abserr
12951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12952 integer(IK) , intent(out) , contiguous :: sindex(:)
12953 integer(IK) , intent(out) :: neval
12954 integer(IK) , intent(out) :: nint
12955 integer(IK) :: err
12956 end function
12957#endif
12958
12959 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12960
12961#if RK5_ENABLED
12962 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
12965#endif
12966 use pm_kind, only: RKC => RK5
12967 procedure(real(RKC)) :: getFunc
12968 type(ninf_type) , intent(in) :: lb
12969 real(RKC) , intent(in) :: ub
12970 real(RKC) , intent(in) :: abstol
12971 real(RKC) , intent(in) :: reltol
12972 type(GK31_type) , intent(in) :: qrule
12973 real(RKC) , intent(in) , contiguous :: help(:)
12974 real(RKC) , intent(out) :: integral, abserr
12975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12976 integer(IK) , intent(out) , contiguous :: sindex(:)
12977 integer(IK) , intent(out) :: neval
12978 integer(IK) , intent(out) :: nint
12979 integer(IK) :: err
12980 end function
12981#endif
12982
12983#if RK4_ENABLED
12984 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
12987#endif
12988 use pm_kind, only: RKC => RK4
12989 procedure(real(RKC)) :: getFunc
12990 type(ninf_type) , intent(in) :: lb
12991 real(RKC) , intent(in) :: ub
12992 real(RKC) , intent(in) :: abstol
12993 real(RKC) , intent(in) :: reltol
12994 type(GK31_type) , intent(in) :: qrule
12995 real(RKC) , intent(in) , contiguous :: help(:)
12996 real(RKC) , intent(out) :: integral, abserr
12997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12998 integer(IK) , intent(out) , contiguous :: sindex(:)
12999 integer(IK) , intent(out) :: neval
13000 integer(IK) , intent(out) :: nint
13001 integer(IK) :: err
13002 end function
13003#endif
13004
13005#if RK3_ENABLED
13006 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13009#endif
13010 use pm_kind, only: RKC => RK3
13011 procedure(real(RKC)) :: getFunc
13012 type(ninf_type) , intent(in) :: lb
13013 real(RKC) , intent(in) :: ub
13014 real(RKC) , intent(in) :: abstol
13015 real(RKC) , intent(in) :: reltol
13016 type(GK31_type) , intent(in) :: qrule
13017 real(RKC) , intent(in) , contiguous :: help(:)
13018 real(RKC) , intent(out) :: integral, abserr
13019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13020 integer(IK) , intent(out) , contiguous :: sindex(:)
13021 integer(IK) , intent(out) :: neval
13022 integer(IK) , intent(out) :: nint
13023 integer(IK) :: err
13024 end function
13025#endif
13026
13027#if RK2_ENABLED
13028 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13031#endif
13032 use pm_kind, only: RKC => RK2
13033 procedure(real(RKC)) :: getFunc
13034 type(ninf_type) , intent(in) :: lb
13035 real(RKC) , intent(in) :: ub
13036 real(RKC) , intent(in) :: abstol
13037 real(RKC) , intent(in) :: reltol
13038 type(GK31_type) , intent(in) :: qrule
13039 real(RKC) , intent(in) , contiguous :: help(:)
13040 real(RKC) , intent(out) :: integral, abserr
13041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13042 integer(IK) , intent(out) , contiguous :: sindex(:)
13043 integer(IK) , intent(out) :: neval
13044 integer(IK) , intent(out) :: nint
13045 integer(IK) :: err
13046 end function
13047#endif
13048
13049#if RK1_ENABLED
13050 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13053#endif
13054 use pm_kind, only: RKC => RK1
13055 procedure(real(RKC)) :: getFunc
13056 type(ninf_type) , intent(in) :: lb
13057 real(RKC) , intent(in) :: ub
13058 real(RKC) , intent(in) :: abstol
13059 real(RKC) , intent(in) :: reltol
13060 type(GK31_type) , intent(in) :: qrule
13061 real(RKC) , intent(in) , contiguous :: help(:)
13062 real(RKC) , intent(out) :: integral, abserr
13063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13064 integer(IK) , intent(out) , contiguous :: sindex(:)
13065 integer(IK) , intent(out) :: neval
13066 integer(IK) , intent(out) :: nint
13067 integer(IK) :: err
13068 end function
13069#endif
13070
13071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13072
13073#if RK5_ENABLED
13074 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13077#endif
13078 use pm_kind, only: RKC => RK5
13079 procedure(real(RKC)) :: getFunc
13080 type(ninf_type) , intent(in) :: lb
13081 type(pinf_type) , intent(in) :: ub
13082 real(RKC) , intent(in) :: abstol
13083 real(RKC) , intent(in) :: reltol
13084 type(GK31_type) , intent(in) :: qrule
13085 real(RKC) , intent(in) , contiguous :: help(:)
13086 real(RKC) , intent(out) :: integral, abserr
13087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13088 integer(IK) , intent(out) , contiguous :: sindex(:)
13089 integer(IK) , intent(out) :: neval
13090 integer(IK) , intent(out) :: nint
13091 integer(IK) :: err
13092 end function
13093#endif
13094
13095#if RK4_ENABLED
13096 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13099#endif
13100 use pm_kind, only: RKC => RK4
13101 procedure(real(RKC)) :: getFunc
13102 type(ninf_type) , intent(in) :: lb
13103 type(pinf_type) , intent(in) :: ub
13104 real(RKC) , intent(in) :: abstol
13105 real(RKC) , intent(in) :: reltol
13106 type(GK31_type) , intent(in) :: qrule
13107 real(RKC) , intent(in) , contiguous :: help(:)
13108 real(RKC) , intent(out) :: integral, abserr
13109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13110 integer(IK) , intent(out) , contiguous :: sindex(:)
13111 integer(IK) , intent(out) :: neval
13112 integer(IK) , intent(out) :: nint
13113 integer(IK) :: err
13114 end function
13115#endif
13116
13117#if RK3_ENABLED
13118 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13121#endif
13122 use pm_kind, only: RKC => RK3
13123 procedure(real(RKC)) :: getFunc
13124 type(ninf_type) , intent(in) :: lb
13125 type(pinf_type) , intent(in) :: ub
13126 real(RKC) , intent(in) :: abstol
13127 real(RKC) , intent(in) :: reltol
13128 type(GK31_type) , intent(in) :: qrule
13129 real(RKC) , intent(in) , contiguous :: help(:)
13130 real(RKC) , intent(out) :: integral, abserr
13131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13132 integer(IK) , intent(out) , contiguous :: sindex(:)
13133 integer(IK) , intent(out) :: neval
13134 integer(IK) , intent(out) :: nint
13135 integer(IK) :: err
13136 end function
13137#endif
13138
13139#if RK2_ENABLED
13140 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13143#endif
13144 use pm_kind, only: RKC => RK2
13145 procedure(real(RKC)) :: getFunc
13146 type(ninf_type) , intent(in) :: lb
13147 type(pinf_type) , intent(in) :: ub
13148 real(RKC) , intent(in) :: abstol
13149 real(RKC) , intent(in) :: reltol
13150 type(GK31_type) , intent(in) :: qrule
13151 real(RKC) , intent(in) , contiguous :: help(:)
13152 real(RKC) , intent(out) :: integral, abserr
13153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13154 integer(IK) , intent(out) , contiguous :: sindex(:)
13155 integer(IK) , intent(out) :: neval
13156 integer(IK) , intent(out) :: nint
13157 integer(IK) :: err
13158 end function
13159#endif
13160
13161#if RK1_ENABLED
13162 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13165#endif
13166 use pm_kind, only: RKC => RK1
13167 procedure(real(RKC)) :: getFunc
13168 type(ninf_type) , intent(in) :: lb
13169 type(pinf_type) , intent(in) :: ub
13170 real(RKC) , intent(in) :: abstol
13171 real(RKC) , intent(in) :: reltol
13172 type(GK31_type) , intent(in) :: qrule
13173 real(RKC) , intent(in) , contiguous :: help(:)
13174 real(RKC) , intent(out) :: integral, abserr
13175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13176 integer(IK) , intent(out) , contiguous :: sindex(:)
13177 integer(IK) , intent(out) :: neval
13178 integer(IK) , intent(out) :: nint
13179 integer(IK) :: err
13180 end function
13181#endif
13182
13183 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13184
13185 end interface
13186
13187 ! QAGP_GK41
13188
13189 interface getQuadErr
13190
13191 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13192
13193#if RK5_ENABLED
13194 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13197#endif
13198 use pm_kind, only: RKC => RK5
13199 procedure(real(RKC)) :: getFunc
13200 real(RKC) , intent(in) :: lb
13201 real(RKC) , intent(in) :: ub
13202 real(RKC) , intent(in) :: abstol
13203 real(RKC) , intent(in) :: reltol
13204 type(GK41_type) , intent(in) :: qrule
13205 real(RKC) , intent(in) , contiguous :: help(:)
13206 real(RKC) , intent(out) :: integral, abserr
13207 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13208 integer(IK) , intent(out) , contiguous :: sindex(:)
13209 integer(IK) , intent(out) :: neval
13210 integer(IK) , intent(out) :: nint
13211 integer(IK) :: err
13212 end function
13213#endif
13214
13215#if RK4_ENABLED
13216 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13218 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13219#endif
13220 use pm_kind, only: RKC => RK4
13221 procedure(real(RKC)) :: getFunc
13222 real(RKC) , intent(in) :: lb
13223 real(RKC) , intent(in) :: ub
13224 real(RKC) , intent(in) :: abstol
13225 real(RKC) , intent(in) :: reltol
13226 type(GK41_type) , intent(in) :: qrule
13227 real(RKC) , intent(in) , contiguous :: help(:)
13228 real(RKC) , intent(out) :: integral, abserr
13229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13230 integer(IK) , intent(out) , contiguous :: sindex(:)
13231 integer(IK) , intent(out) :: neval
13232 integer(IK) , intent(out) :: nint
13233 integer(IK) :: err
13234 end function
13235#endif
13236
13237#if RK3_ENABLED
13238 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13240 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13241#endif
13242 use pm_kind, only: RKC => RK3
13243 procedure(real(RKC)) :: getFunc
13244 real(RKC) , intent(in) :: lb
13245 real(RKC) , intent(in) :: ub
13246 real(RKC) , intent(in) :: abstol
13247 real(RKC) , intent(in) :: reltol
13248 type(GK41_type) , intent(in) :: qrule
13249 real(RKC) , intent(in) , contiguous :: help(:)
13250 real(RKC) , intent(out) :: integral, abserr
13251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13252 integer(IK) , intent(out) , contiguous :: sindex(:)
13253 integer(IK) , intent(out) :: neval
13254 integer(IK) , intent(out) :: nint
13255 integer(IK) :: err
13256 end function
13257#endif
13258
13259#if RK2_ENABLED
13260 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13262 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13263#endif
13264 use pm_kind, only: RKC => RK2
13265 procedure(real(RKC)) :: getFunc
13266 real(RKC) , intent(in) :: lb
13267 real(RKC) , intent(in) :: ub
13268 real(RKC) , intent(in) :: abstol
13269 real(RKC) , intent(in) :: reltol
13270 type(GK41_type) , intent(in) :: qrule
13271 real(RKC) , intent(in) , contiguous :: help(:)
13272 real(RKC) , intent(out) :: integral, abserr
13273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13274 integer(IK) , intent(out) , contiguous :: sindex(:)
13275 integer(IK) , intent(out) :: neval
13276 integer(IK) , intent(out) :: nint
13277 integer(IK) :: err
13278 end function
13279#endif
13280
13281#if RK1_ENABLED
13282 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13284 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13285#endif
13286 use pm_kind, only: RKC => RK1
13287 procedure(real(RKC)) :: getFunc
13288 real(RKC) , intent(in) :: lb
13289 real(RKC) , intent(in) :: ub
13290 real(RKC) , intent(in) :: abstol
13291 real(RKC) , intent(in) :: reltol
13292 type(GK41_type) , intent(in) :: qrule
13293 real(RKC) , intent(in) , contiguous :: help(:)
13294 real(RKC) , intent(out) :: integral, abserr
13295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13296 integer(IK) , intent(out) , contiguous :: sindex(:)
13297 integer(IK) , intent(out) :: neval
13298 integer(IK) , intent(out) :: nint
13299 integer(IK) :: err
13300 end function
13301#endif
13302
13303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13304
13305#if RK5_ENABLED
13306 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13309#endif
13310 use pm_kind, only: RKC => RK5
13311 procedure(real(RKC)) :: getFunc
13312 real(RKC) , intent(in) :: lb
13313 type(pinf_type) , intent(in) :: ub
13314 real(RKC) , intent(in) :: abstol
13315 real(RKC) , intent(in) :: reltol
13316 type(GK41_type) , intent(in) :: qrule
13317 real(RKC) , intent(in) , contiguous :: help(:)
13318 real(RKC) , intent(out) :: integral, abserr
13319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13320 integer(IK) , intent(out) , contiguous :: sindex(:)
13321 integer(IK) , intent(out) :: neval
13322 integer(IK) , intent(out) :: nint
13323 integer(IK) :: err
13324 end function
13325#endif
13326
13327#if RK4_ENABLED
13328 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13331#endif
13332 use pm_kind, only: RKC => RK4
13333 procedure(real(RKC)) :: getFunc
13334 real(RKC) , intent(in) :: lb
13335 type(pinf_type) , intent(in) :: ub
13336 real(RKC) , intent(in) :: abstol
13337 real(RKC) , intent(in) :: reltol
13338 type(GK41_type) , intent(in) :: qrule
13339 real(RKC) , intent(in) , contiguous :: help(:)
13340 real(RKC) , intent(out) :: integral, abserr
13341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13342 integer(IK) , intent(out) , contiguous :: sindex(:)
13343 integer(IK) , intent(out) :: neval
13344 integer(IK) , intent(out) :: nint
13345 integer(IK) :: err
13346 end function
13347#endif
13348
13349#if RK3_ENABLED
13350 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13353#endif
13354 use pm_kind, only: RKC => RK3
13355 procedure(real(RKC)) :: getFunc
13356 real(RKC) , intent(in) :: lb
13357 type(pinf_type) , intent(in) :: ub
13358 real(RKC) , intent(in) :: abstol
13359 real(RKC) , intent(in) :: reltol
13360 type(GK41_type) , intent(in) :: qrule
13361 real(RKC) , intent(in) , contiguous :: help(:)
13362 real(RKC) , intent(out) :: integral, abserr
13363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13364 integer(IK) , intent(out) , contiguous :: sindex(:)
13365 integer(IK) , intent(out) :: neval
13366 integer(IK) , intent(out) :: nint
13367 integer(IK) :: err
13368 end function
13369#endif
13370
13371#if RK2_ENABLED
13372 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13375#endif
13376 use pm_kind, only: RKC => RK2
13377 procedure(real(RKC)) :: getFunc
13378 real(RKC) , intent(in) :: lb
13379 type(pinf_type) , intent(in) :: ub
13380 real(RKC) , intent(in) :: abstol
13381 real(RKC) , intent(in) :: reltol
13382 type(GK41_type) , intent(in) :: qrule
13383 real(RKC) , intent(in) , contiguous :: help(:)
13384 real(RKC) , intent(out) :: integral, abserr
13385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13386 integer(IK) , intent(out) , contiguous :: sindex(:)
13387 integer(IK) , intent(out) :: neval
13388 integer(IK) , intent(out) :: nint
13389 integer(IK) :: err
13390 end function
13391#endif
13392
13393#if RK1_ENABLED
13394 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13397#endif
13398 use pm_kind, only: RKC => RK1
13399 procedure(real(RKC)) :: getFunc
13400 real(RKC) , intent(in) :: lb
13401 type(pinf_type) , intent(in) :: ub
13402 real(RKC) , intent(in) :: abstol
13403 real(RKC) , intent(in) :: reltol
13404 type(GK41_type) , intent(in) :: qrule
13405 real(RKC) , intent(in) , contiguous :: help(:)
13406 real(RKC) , intent(out) :: integral, abserr
13407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13408 integer(IK) , intent(out) , contiguous :: sindex(:)
13409 integer(IK) , intent(out) :: neval
13410 integer(IK) , intent(out) :: nint
13411 integer(IK) :: err
13412 end function
13413#endif
13414
13415 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13416
13417#if RK5_ENABLED
13418 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13421#endif
13422 use pm_kind, only: RKC => RK5
13423 procedure(real(RKC)) :: getFunc
13424 type(ninf_type) , intent(in) :: lb
13425 real(RKC) , intent(in) :: ub
13426 real(RKC) , intent(in) :: abstol
13427 real(RKC) , intent(in) :: reltol
13428 type(GK41_type) , intent(in) :: qrule
13429 real(RKC) , intent(in) , contiguous :: help(:)
13430 real(RKC) , intent(out) :: integral, abserr
13431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13432 integer(IK) , intent(out) , contiguous :: sindex(:)
13433 integer(IK) , intent(out) :: neval
13434 integer(IK) , intent(out) :: nint
13435 integer(IK) :: err
13436 end function
13437#endif
13438
13439#if RK4_ENABLED
13440 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13443#endif
13444 use pm_kind, only: RKC => RK4
13445 procedure(real(RKC)) :: getFunc
13446 type(ninf_type) , intent(in) :: lb
13447 real(RKC) , intent(in) :: ub
13448 real(RKC) , intent(in) :: abstol
13449 real(RKC) , intent(in) :: reltol
13450 type(GK41_type) , intent(in) :: qrule
13451 real(RKC) , intent(in) , contiguous :: help(:)
13452 real(RKC) , intent(out) :: integral, abserr
13453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13454 integer(IK) , intent(out) , contiguous :: sindex(:)
13455 integer(IK) , intent(out) :: neval
13456 integer(IK) , intent(out) :: nint
13457 integer(IK) :: err
13458 end function
13459#endif
13460
13461#if RK3_ENABLED
13462 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13465#endif
13466 use pm_kind, only: RKC => RK3
13467 procedure(real(RKC)) :: getFunc
13468 type(ninf_type) , intent(in) :: lb
13469 real(RKC) , intent(in) :: ub
13470 real(RKC) , intent(in) :: abstol
13471 real(RKC) , intent(in) :: reltol
13472 type(GK41_type) , intent(in) :: qrule
13473 real(RKC) , intent(in) , contiguous :: help(:)
13474 real(RKC) , intent(out) :: integral, abserr
13475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13476 integer(IK) , intent(out) , contiguous :: sindex(:)
13477 integer(IK) , intent(out) :: neval
13478 integer(IK) , intent(out) :: nint
13479 integer(IK) :: err
13480 end function
13481#endif
13482
13483#if RK2_ENABLED
13484 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13487#endif
13488 use pm_kind, only: RKC => RK2
13489 procedure(real(RKC)) :: getFunc
13490 type(ninf_type) , intent(in) :: lb
13491 real(RKC) , intent(in) :: ub
13492 real(RKC) , intent(in) :: abstol
13493 real(RKC) , intent(in) :: reltol
13494 type(GK41_type) , intent(in) :: qrule
13495 real(RKC) , intent(in) , contiguous :: help(:)
13496 real(RKC) , intent(out) :: integral, abserr
13497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13498 integer(IK) , intent(out) , contiguous :: sindex(:)
13499 integer(IK) , intent(out) :: neval
13500 integer(IK) , intent(out) :: nint
13501 integer(IK) :: err
13502 end function
13503#endif
13504
13505#if RK1_ENABLED
13506 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13509#endif
13510 use pm_kind, only: RKC => RK1
13511 procedure(real(RKC)) :: getFunc
13512 type(ninf_type) , intent(in) :: lb
13513 real(RKC) , intent(in) :: ub
13514 real(RKC) , intent(in) :: abstol
13515 real(RKC) , intent(in) :: reltol
13516 type(GK41_type) , intent(in) :: qrule
13517 real(RKC) , intent(in) , contiguous :: help(:)
13518 real(RKC) , intent(out) :: integral, abserr
13519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13520 integer(IK) , intent(out) , contiguous :: sindex(:)
13521 integer(IK) , intent(out) :: neval
13522 integer(IK) , intent(out) :: nint
13523 integer(IK) :: err
13524 end function
13525#endif
13526
13527 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13528
13529#if RK5_ENABLED
13530 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13533#endif
13534 use pm_kind, only: RKC => RK5
13535 procedure(real(RKC)) :: getFunc
13536 type(ninf_type) , intent(in) :: lb
13537 type(pinf_type) , intent(in) :: ub
13538 real(RKC) , intent(in) :: abstol
13539 real(RKC) , intent(in) :: reltol
13540 type(GK41_type) , intent(in) :: qrule
13541 real(RKC) , intent(in) , contiguous :: help(:)
13542 real(RKC) , intent(out) :: integral, abserr
13543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13544 integer(IK) , intent(out) , contiguous :: sindex(:)
13545 integer(IK) , intent(out) :: neval
13546 integer(IK) , intent(out) :: nint
13547 integer(IK) :: err
13548 end function
13549#endif
13550
13551#if RK4_ENABLED
13552 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13555#endif
13556 use pm_kind, only: RKC => RK4
13557 procedure(real(RKC)) :: getFunc
13558 type(ninf_type) , intent(in) :: lb
13559 type(pinf_type) , intent(in) :: ub
13560 real(RKC) , intent(in) :: abstol
13561 real(RKC) , intent(in) :: reltol
13562 type(GK41_type) , intent(in) :: qrule
13563 real(RKC) , intent(in) , contiguous :: help(:)
13564 real(RKC) , intent(out) :: integral, abserr
13565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13566 integer(IK) , intent(out) , contiguous :: sindex(:)
13567 integer(IK) , intent(out) :: neval
13568 integer(IK) , intent(out) :: nint
13569 integer(IK) :: err
13570 end function
13571#endif
13572
13573#if RK3_ENABLED
13574 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13577#endif
13578 use pm_kind, only: RKC => RK3
13579 procedure(real(RKC)) :: getFunc
13580 type(ninf_type) , intent(in) :: lb
13581 type(pinf_type) , intent(in) :: ub
13582 real(RKC) , intent(in) :: abstol
13583 real(RKC) , intent(in) :: reltol
13584 type(GK41_type) , intent(in) :: qrule
13585 real(RKC) , intent(in) , contiguous :: help(:)
13586 real(RKC) , intent(out) :: integral, abserr
13587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13588 integer(IK) , intent(out) , contiguous :: sindex(:)
13589 integer(IK) , intent(out) :: neval
13590 integer(IK) , intent(out) :: nint
13591 integer(IK) :: err
13592 end function
13593#endif
13594
13595#if RK2_ENABLED
13596 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13598 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13599#endif
13600 use pm_kind, only: RKC => RK2
13601 procedure(real(RKC)) :: getFunc
13602 type(ninf_type) , intent(in) :: lb
13603 type(pinf_type) , intent(in) :: ub
13604 real(RKC) , intent(in) :: abstol
13605 real(RKC) , intent(in) :: reltol
13606 type(GK41_type) , intent(in) :: qrule
13607 real(RKC) , intent(in) , contiguous :: help(:)
13608 real(RKC) , intent(out) :: integral, abserr
13609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13610 integer(IK) , intent(out) , contiguous :: sindex(:)
13611 integer(IK) , intent(out) :: neval
13612 integer(IK) , intent(out) :: nint
13613 integer(IK) :: err
13614 end function
13615#endif
13616
13617#if RK1_ENABLED
13618 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13621#endif
13622 use pm_kind, only: RKC => RK1
13623 procedure(real(RKC)) :: getFunc
13624 type(ninf_type) , intent(in) :: lb
13625 type(pinf_type) , intent(in) :: ub
13626 real(RKC) , intent(in) :: abstol
13627 real(RKC) , intent(in) :: reltol
13628 type(GK41_type) , intent(in) :: qrule
13629 real(RKC) , intent(in) , contiguous :: help(:)
13630 real(RKC) , intent(out) :: integral, abserr
13631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13632 integer(IK) , intent(out) , contiguous :: sindex(:)
13633 integer(IK) , intent(out) :: neval
13634 integer(IK) , intent(out) :: nint
13635 integer(IK) :: err
13636 end function
13637#endif
13638
13639 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13640
13641 end interface
13642
13643 ! QAGP_GK51
13644
13645 interface getQuadErr
13646
13647 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13648
13649#if RK5_ENABLED
13650 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13653#endif
13654 use pm_kind, only: RKC => RK5
13655 procedure(real(RKC)) :: getFunc
13656 real(RKC) , intent(in) :: lb
13657 real(RKC) , intent(in) :: ub
13658 real(RKC) , intent(in) :: abstol
13659 real(RKC) , intent(in) :: reltol
13660 type(GK51_type) , intent(in) :: qrule
13661 real(RKC) , intent(in) , contiguous :: help(:)
13662 real(RKC) , intent(out) :: integral, abserr
13663 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13664 integer(IK) , intent(out) , contiguous :: sindex(:)
13665 integer(IK) , intent(out) :: neval
13666 integer(IK) , intent(out) :: nint
13667 integer(IK) :: err
13668 end function
13669#endif
13670
13671#if RK4_ENABLED
13672 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13674 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13675#endif
13676 use pm_kind, only: RKC => RK4
13677 procedure(real(RKC)) :: getFunc
13678 real(RKC) , intent(in) :: lb
13679 real(RKC) , intent(in) :: ub
13680 real(RKC) , intent(in) :: abstol
13681 real(RKC) , intent(in) :: reltol
13682 type(GK51_type) , intent(in) :: qrule
13683 real(RKC) , intent(in) , contiguous :: help(:)
13684 real(RKC) , intent(out) :: integral, abserr
13685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13686 integer(IK) , intent(out) , contiguous :: sindex(:)
13687 integer(IK) , intent(out) :: neval
13688 integer(IK) , intent(out) :: nint
13689 integer(IK) :: err
13690 end function
13691#endif
13692
13693#if RK3_ENABLED
13694 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13696 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13697#endif
13698 use pm_kind, only: RKC => RK3
13699 procedure(real(RKC)) :: getFunc
13700 real(RKC) , intent(in) :: lb
13701 real(RKC) , intent(in) :: ub
13702 real(RKC) , intent(in) :: abstol
13703 real(RKC) , intent(in) :: reltol
13704 type(GK51_type) , intent(in) :: qrule
13705 real(RKC) , intent(in) , contiguous :: help(:)
13706 real(RKC) , intent(out) :: integral, abserr
13707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13708 integer(IK) , intent(out) , contiguous :: sindex(:)
13709 integer(IK) , intent(out) :: neval
13710 integer(IK) , intent(out) :: nint
13711 integer(IK) :: err
13712 end function
13713#endif
13714
13715#if RK2_ENABLED
13716 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13718 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13719#endif
13720 use pm_kind, only: RKC => RK2
13721 procedure(real(RKC)) :: getFunc
13722 real(RKC) , intent(in) :: lb
13723 real(RKC) , intent(in) :: ub
13724 real(RKC) , intent(in) :: abstol
13725 real(RKC) , intent(in) :: reltol
13726 type(GK51_type) , intent(in) :: qrule
13727 real(RKC) , intent(in) , contiguous :: help(:)
13728 real(RKC) , intent(out) :: integral, abserr
13729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13730 integer(IK) , intent(out) , contiguous :: sindex(:)
13731 integer(IK) , intent(out) :: neval
13732 integer(IK) , intent(out) :: nint
13733 integer(IK) :: err
13734 end function
13735#endif
13736
13737#if RK1_ENABLED
13738 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13740 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13741#endif
13742 use pm_kind, only: RKC => RK1
13743 procedure(real(RKC)) :: getFunc
13744 real(RKC) , intent(in) :: lb
13745 real(RKC) , intent(in) :: ub
13746 real(RKC) , intent(in) :: abstol
13747 real(RKC) , intent(in) :: reltol
13748 type(GK51_type) , intent(in) :: qrule
13749 real(RKC) , intent(in) , contiguous :: help(:)
13750 real(RKC) , intent(out) :: integral, abserr
13751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13752 integer(IK) , intent(out) , contiguous :: sindex(:)
13753 integer(IK) , intent(out) :: neval
13754 integer(IK) , intent(out) :: nint
13755 integer(IK) :: err
13756 end function
13757#endif
13758
13759 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13760
13761#if RK5_ENABLED
13762 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13765#endif
13766 use pm_kind, only: RKC => RK5
13767 procedure(real(RKC)) :: getFunc
13768 real(RKC) , intent(in) :: lb
13769 type(pinf_type) , intent(in) :: ub
13770 real(RKC) , intent(in) :: abstol
13771 real(RKC) , intent(in) :: reltol
13772 type(GK51_type) , intent(in) :: qrule
13773 real(RKC) , intent(in) , contiguous :: help(:)
13774 real(RKC) , intent(out) :: integral, abserr
13775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13776 integer(IK) , intent(out) , contiguous :: sindex(:)
13777 integer(IK) , intent(out) :: neval
13778 integer(IK) , intent(out) :: nint
13779 integer(IK) :: err
13780 end function
13781#endif
13782
13783#if RK4_ENABLED
13784 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13787#endif
13788 use pm_kind, only: RKC => RK4
13789 procedure(real(RKC)) :: getFunc
13790 real(RKC) , intent(in) :: lb
13791 type(pinf_type) , intent(in) :: ub
13792 real(RKC) , intent(in) :: abstol
13793 real(RKC) , intent(in) :: reltol
13794 type(GK51_type) , intent(in) :: qrule
13795 real(RKC) , intent(in) , contiguous :: help(:)
13796 real(RKC) , intent(out) :: integral, abserr
13797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13798 integer(IK) , intent(out) , contiguous :: sindex(:)
13799 integer(IK) , intent(out) :: neval
13800 integer(IK) , intent(out) :: nint
13801 integer(IK) :: err
13802 end function
13803#endif
13804
13805#if RK3_ENABLED
13806 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13809#endif
13810 use pm_kind, only: RKC => RK3
13811 procedure(real(RKC)) :: getFunc
13812 real(RKC) , intent(in) :: lb
13813 type(pinf_type) , intent(in) :: ub
13814 real(RKC) , intent(in) :: abstol
13815 real(RKC) , intent(in) :: reltol
13816 type(GK51_type) , intent(in) :: qrule
13817 real(RKC) , intent(in) , contiguous :: help(:)
13818 real(RKC) , intent(out) :: integral, abserr
13819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13820 integer(IK) , intent(out) , contiguous :: sindex(:)
13821 integer(IK) , intent(out) :: neval
13822 integer(IK) , intent(out) :: nint
13823 integer(IK) :: err
13824 end function
13825#endif
13826
13827#if RK2_ENABLED
13828 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13831#endif
13832 use pm_kind, only: RKC => RK2
13833 procedure(real(RKC)) :: getFunc
13834 real(RKC) , intent(in) :: lb
13835 type(pinf_type) , intent(in) :: ub
13836 real(RKC) , intent(in) :: abstol
13837 real(RKC) , intent(in) :: reltol
13838 type(GK51_type) , intent(in) :: qrule
13839 real(RKC) , intent(in) , contiguous :: help(:)
13840 real(RKC) , intent(out) :: integral, abserr
13841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13842 integer(IK) , intent(out) , contiguous :: sindex(:)
13843 integer(IK) , intent(out) :: neval
13844 integer(IK) , intent(out) :: nint
13845 integer(IK) :: err
13846 end function
13847#endif
13848
13849#if RK1_ENABLED
13850 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13853#endif
13854 use pm_kind, only: RKC => RK1
13855 procedure(real(RKC)) :: getFunc
13856 real(RKC) , intent(in) :: lb
13857 type(pinf_type) , intent(in) :: ub
13858 real(RKC) , intent(in) :: abstol
13859 real(RKC) , intent(in) :: reltol
13860 type(GK51_type) , intent(in) :: qrule
13861 real(RKC) , intent(in) , contiguous :: help(:)
13862 real(RKC) , intent(out) :: integral, abserr
13863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13864 integer(IK) , intent(out) , contiguous :: sindex(:)
13865 integer(IK) , intent(out) :: neval
13866 integer(IK) , intent(out) :: nint
13867 integer(IK) :: err
13868 end function
13869#endif
13870
13871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13872
13873#if RK5_ENABLED
13874 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13877#endif
13878 use pm_kind, only: RKC => RK5
13879 procedure(real(RKC)) :: getFunc
13880 type(ninf_type) , intent(in) :: lb
13881 real(RKC) , intent(in) :: ub
13882 real(RKC) , intent(in) :: abstol
13883 real(RKC) , intent(in) :: reltol
13884 type(GK51_type) , intent(in) :: qrule
13885 real(RKC) , intent(in) , contiguous :: help(:)
13886 real(RKC) , intent(out) :: integral, abserr
13887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13888 integer(IK) , intent(out) , contiguous :: sindex(:)
13889 integer(IK) , intent(out) :: neval
13890 integer(IK) , intent(out) :: nint
13891 integer(IK) :: err
13892 end function
13893#endif
13894
13895#if RK4_ENABLED
13896 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13899#endif
13900 use pm_kind, only: RKC => RK4
13901 procedure(real(RKC)) :: getFunc
13902 type(ninf_type) , intent(in) :: lb
13903 real(RKC) , intent(in) :: ub
13904 real(RKC) , intent(in) :: abstol
13905 real(RKC) , intent(in) :: reltol
13906 type(GK51_type) , intent(in) :: qrule
13907 real(RKC) , intent(in) , contiguous :: help(:)
13908 real(RKC) , intent(out) :: integral, abserr
13909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13910 integer(IK) , intent(out) , contiguous :: sindex(:)
13911 integer(IK) , intent(out) :: neval
13912 integer(IK) , intent(out) :: nint
13913 integer(IK) :: err
13914 end function
13915#endif
13916
13917#if RK3_ENABLED
13918 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13921#endif
13922 use pm_kind, only: RKC => RK3
13923 procedure(real(RKC)) :: getFunc
13924 type(ninf_type) , intent(in) :: lb
13925 real(RKC) , intent(in) :: ub
13926 real(RKC) , intent(in) :: abstol
13927 real(RKC) , intent(in) :: reltol
13928 type(GK51_type) , intent(in) :: qrule
13929 real(RKC) , intent(in) , contiguous :: help(:)
13930 real(RKC) , intent(out) :: integral, abserr
13931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13932 integer(IK) , intent(out) , contiguous :: sindex(:)
13933 integer(IK) , intent(out) :: neval
13934 integer(IK) , intent(out) :: nint
13935 integer(IK) :: err
13936 end function
13937#endif
13938
13939#if RK2_ENABLED
13940 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
13943#endif
13944 use pm_kind, only: RKC => RK2
13945 procedure(real(RKC)) :: getFunc
13946 type(ninf_type) , intent(in) :: lb
13947 real(RKC) , intent(in) :: ub
13948 real(RKC) , intent(in) :: abstol
13949 real(RKC) , intent(in) :: reltol
13950 type(GK51_type) , intent(in) :: qrule
13951 real(RKC) , intent(in) , contiguous :: help(:)
13952 real(RKC) , intent(out) :: integral, abserr
13953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13954 integer(IK) , intent(out) , contiguous :: sindex(:)
13955 integer(IK) , intent(out) :: neval
13956 integer(IK) , intent(out) :: nint
13957 integer(IK) :: err
13958 end function
13959#endif
13960
13961#if RK1_ENABLED
13962 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
13965#endif
13966 use pm_kind, only: RKC => RK1
13967 procedure(real(RKC)) :: getFunc
13968 type(ninf_type) , intent(in) :: lb
13969 real(RKC) , intent(in) :: ub
13970 real(RKC) , intent(in) :: abstol
13971 real(RKC) , intent(in) :: reltol
13972 type(GK51_type) , intent(in) :: qrule
13973 real(RKC) , intent(in) , contiguous :: help(:)
13974 real(RKC) , intent(out) :: integral, abserr
13975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13976 integer(IK) , intent(out) , contiguous :: sindex(:)
13977 integer(IK) , intent(out) :: neval
13978 integer(IK) , intent(out) :: nint
13979 integer(IK) :: err
13980 end function
13981#endif
13982
13983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13984
13985#if RK5_ENABLED
13986 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
13989#endif
13990 use pm_kind, only: RKC => RK5
13991 procedure(real(RKC)) :: getFunc
13992 type(ninf_type) , intent(in) :: lb
13993 type(pinf_type) , intent(in) :: ub
13994 real(RKC) , intent(in) :: abstol
13995 real(RKC) , intent(in) :: reltol
13996 type(GK51_type) , intent(in) :: qrule
13997 real(RKC) , intent(in) , contiguous :: help(:)
13998 real(RKC) , intent(out) :: integral, abserr
13999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14000 integer(IK) , intent(out) , contiguous :: sindex(:)
14001 integer(IK) , intent(out) :: neval
14002 integer(IK) , intent(out) :: nint
14003 integer(IK) :: err
14004 end function
14005#endif
14006
14007#if RK4_ENABLED
14008 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14011#endif
14012 use pm_kind, only: RKC => RK4
14013 procedure(real(RKC)) :: getFunc
14014 type(ninf_type) , intent(in) :: lb
14015 type(pinf_type) , intent(in) :: ub
14016 real(RKC) , intent(in) :: abstol
14017 real(RKC) , intent(in) :: reltol
14018 type(GK51_type) , intent(in) :: qrule
14019 real(RKC) , intent(in) , contiguous :: help(:)
14020 real(RKC) , intent(out) :: integral, abserr
14021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14022 integer(IK) , intent(out) , contiguous :: sindex(:)
14023 integer(IK) , intent(out) :: neval
14024 integer(IK) , intent(out) :: nint
14025 integer(IK) :: err
14026 end function
14027#endif
14028
14029#if RK3_ENABLED
14030 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14033#endif
14034 use pm_kind, only: RKC => RK3
14035 procedure(real(RKC)) :: getFunc
14036 type(ninf_type) , intent(in) :: lb
14037 type(pinf_type) , intent(in) :: ub
14038 real(RKC) , intent(in) :: abstol
14039 real(RKC) , intent(in) :: reltol
14040 type(GK51_type) , intent(in) :: qrule
14041 real(RKC) , intent(in) , contiguous :: help(:)
14042 real(RKC) , intent(out) :: integral, abserr
14043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14044 integer(IK) , intent(out) , contiguous :: sindex(:)
14045 integer(IK) , intent(out) :: neval
14046 integer(IK) , intent(out) :: nint
14047 integer(IK) :: err
14048 end function
14049#endif
14050
14051#if RK2_ENABLED
14052 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14055#endif
14056 use pm_kind, only: RKC => RK2
14057 procedure(real(RKC)) :: getFunc
14058 type(ninf_type) , intent(in) :: lb
14059 type(pinf_type) , intent(in) :: ub
14060 real(RKC) , intent(in) :: abstol
14061 real(RKC) , intent(in) :: reltol
14062 type(GK51_type) , intent(in) :: qrule
14063 real(RKC) , intent(in) , contiguous :: help(:)
14064 real(RKC) , intent(out) :: integral, abserr
14065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14066 integer(IK) , intent(out) , contiguous :: sindex(:)
14067 integer(IK) , intent(out) :: neval
14068 integer(IK) , intent(out) :: nint
14069 integer(IK) :: err
14070 end function
14071#endif
14072
14073#if RK1_ENABLED
14074 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14077#endif
14078 use pm_kind, only: RKC => RK1
14079 procedure(real(RKC)) :: getFunc
14080 type(ninf_type) , intent(in) :: lb
14081 type(pinf_type) , intent(in) :: ub
14082 real(RKC) , intent(in) :: abstol
14083 real(RKC) , intent(in) :: reltol
14084 type(GK51_type) , intent(in) :: qrule
14085 real(RKC) , intent(in) , contiguous :: help(:)
14086 real(RKC) , intent(out) :: integral, abserr
14087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14088 integer(IK) , intent(out) , contiguous :: sindex(:)
14089 integer(IK) , intent(out) :: neval
14090 integer(IK) , intent(out) :: nint
14091 integer(IK) :: err
14092 end function
14093#endif
14094
14095 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14096
14097 end interface
14098
14099 ! QAGP_GK61
14100
14101 interface getQuadErr
14102
14103 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14104
14105#if RK5_ENABLED
14106 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14108 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14109#endif
14110 use pm_kind, only: RKC => RK5
14111 procedure(real(RKC)) :: getFunc
14112 real(RKC) , intent(in) :: lb
14113 real(RKC) , intent(in) :: ub
14114 real(RKC) , intent(in) :: abstol
14115 real(RKC) , intent(in) :: reltol
14116 type(GK61_type) , intent(in) :: qrule
14117 real(RKC) , intent(in) , contiguous :: help(:)
14118 real(RKC) , intent(out) :: integral, abserr
14119 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14120 integer(IK) , intent(out) , contiguous :: sindex(:)
14121 integer(IK) , intent(out) :: neval
14122 integer(IK) , intent(out) :: nint
14123 integer(IK) :: err
14124 end function
14125#endif
14126
14127#if RK4_ENABLED
14128 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14129#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14130 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14131#endif
14132 use pm_kind, only: RKC => RK4
14133 procedure(real(RKC)) :: getFunc
14134 real(RKC) , intent(in) :: lb
14135 real(RKC) , intent(in) :: ub
14136 real(RKC) , intent(in) :: abstol
14137 real(RKC) , intent(in) :: reltol
14138 type(GK61_type) , intent(in) :: qrule
14139 real(RKC) , intent(in) , contiguous :: help(:)
14140 real(RKC) , intent(out) :: integral, abserr
14141 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14142 integer(IK) , intent(out) , contiguous :: sindex(:)
14143 integer(IK) , intent(out) :: neval
14144 integer(IK) , intent(out) :: nint
14145 integer(IK) :: err
14146 end function
14147#endif
14148
14149#if RK3_ENABLED
14150 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14152 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14153#endif
14154 use pm_kind, only: RKC => RK3
14155 procedure(real(RKC)) :: getFunc
14156 real(RKC) , intent(in) :: lb
14157 real(RKC) , intent(in) :: ub
14158 real(RKC) , intent(in) :: abstol
14159 real(RKC) , intent(in) :: reltol
14160 type(GK61_type) , intent(in) :: qrule
14161 real(RKC) , intent(in) , contiguous :: help(:)
14162 real(RKC) , intent(out) :: integral, abserr
14163 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14164 integer(IK) , intent(out) , contiguous :: sindex(:)
14165 integer(IK) , intent(out) :: neval
14166 integer(IK) , intent(out) :: nint
14167 integer(IK) :: err
14168 end function
14169#endif
14170
14171#if RK2_ENABLED
14172 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14173#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14174 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14175#endif
14176 use pm_kind, only: RKC => RK2
14177 procedure(real(RKC)) :: getFunc
14178 real(RKC) , intent(in) :: lb
14179 real(RKC) , intent(in) :: ub
14180 real(RKC) , intent(in) :: abstol
14181 real(RKC) , intent(in) :: reltol
14182 type(GK61_type) , intent(in) :: qrule
14183 real(RKC) , intent(in) , contiguous :: help(:)
14184 real(RKC) , intent(out) :: integral, abserr
14185 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14186 integer(IK) , intent(out) , contiguous :: sindex(:)
14187 integer(IK) , intent(out) :: neval
14188 integer(IK) , intent(out) :: nint
14189 integer(IK) :: err
14190 end function
14191#endif
14192
14193#if RK1_ENABLED
14194 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14196 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14197#endif
14198 use pm_kind, only: RKC => RK1
14199 procedure(real(RKC)) :: getFunc
14200 real(RKC) , intent(in) :: lb
14201 real(RKC) , intent(in) :: ub
14202 real(RKC) , intent(in) :: abstol
14203 real(RKC) , intent(in) :: reltol
14204 type(GK61_type) , intent(in) :: qrule
14205 real(RKC) , intent(in) , contiguous :: help(:)
14206 real(RKC) , intent(out) :: integral, abserr
14207 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14208 integer(IK) , intent(out) , contiguous :: sindex(:)
14209 integer(IK) , intent(out) :: neval
14210 integer(IK) , intent(out) :: nint
14211 integer(IK) :: err
14212 end function
14213#endif
14214
14215 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14216
14217#if RK5_ENABLED
14218 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14220 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14221#endif
14222 use pm_kind, only: RKC => RK5
14223 procedure(real(RKC)) :: getFunc
14224 real(RKC) , intent(in) :: lb
14225 type(pinf_type) , intent(in) :: ub
14226 real(RKC) , intent(in) :: abstol
14227 real(RKC) , intent(in) :: reltol
14228 type(GK61_type) , intent(in) :: qrule
14229 real(RKC) , intent(in) , contiguous :: help(:)
14230 real(RKC) , intent(out) :: integral, abserr
14231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14232 integer(IK) , intent(out) , contiguous :: sindex(:)
14233 integer(IK) , intent(out) :: neval
14234 integer(IK) , intent(out) :: nint
14235 integer(IK) :: err
14236 end function
14237#endif
14238
14239#if RK4_ENABLED
14240 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14242 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14243#endif
14244 use pm_kind, only: RKC => RK4
14245 procedure(real(RKC)) :: getFunc
14246 real(RKC) , intent(in) :: lb
14247 type(pinf_type) , intent(in) :: ub
14248 real(RKC) , intent(in) :: abstol
14249 real(RKC) , intent(in) :: reltol
14250 type(GK61_type) , intent(in) :: qrule
14251 real(RKC) , intent(in) , contiguous :: help(:)
14252 real(RKC) , intent(out) :: integral, abserr
14253 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14254 integer(IK) , intent(out) , contiguous :: sindex(:)
14255 integer(IK) , intent(out) :: neval
14256 integer(IK) , intent(out) :: nint
14257 integer(IK) :: err
14258 end function
14259#endif
14260
14261#if RK3_ENABLED
14262 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14265#endif
14266 use pm_kind, only: RKC => RK3
14267 procedure(real(RKC)) :: getFunc
14268 real(RKC) , intent(in) :: lb
14269 type(pinf_type) , intent(in) :: ub
14270 real(RKC) , intent(in) :: abstol
14271 real(RKC) , intent(in) :: reltol
14272 type(GK61_type) , intent(in) :: qrule
14273 real(RKC) , intent(in) , contiguous :: help(:)
14274 real(RKC) , intent(out) :: integral, abserr
14275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14276 integer(IK) , intent(out) , contiguous :: sindex(:)
14277 integer(IK) , intent(out) :: neval
14278 integer(IK) , intent(out) :: nint
14279 integer(IK) :: err
14280 end function
14281#endif
14282
14283#if RK2_ENABLED
14284 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14286 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14287#endif
14288 use pm_kind, only: RKC => RK2
14289 procedure(real(RKC)) :: getFunc
14290 real(RKC) , intent(in) :: lb
14291 type(pinf_type) , intent(in) :: ub
14292 real(RKC) , intent(in) :: abstol
14293 real(RKC) , intent(in) :: reltol
14294 type(GK61_type) , intent(in) :: qrule
14295 real(RKC) , intent(in) , contiguous :: help(:)
14296 real(RKC) , intent(out) :: integral, abserr
14297 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14298 integer(IK) , intent(out) , contiguous :: sindex(:)
14299 integer(IK) , intent(out) :: neval
14300 integer(IK) , intent(out) :: nint
14301 integer(IK) :: err
14302 end function
14303#endif
14304
14305#if RK1_ENABLED
14306 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14309#endif
14310 use pm_kind, only: RKC => RK1
14311 procedure(real(RKC)) :: getFunc
14312 real(RKC) , intent(in) :: lb
14313 type(pinf_type) , intent(in) :: ub
14314 real(RKC) , intent(in) :: abstol
14315 real(RKC) , intent(in) :: reltol
14316 type(GK61_type) , intent(in) :: qrule
14317 real(RKC) , intent(in) , contiguous :: help(:)
14318 real(RKC) , intent(out) :: integral, abserr
14319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14320 integer(IK) , intent(out) , contiguous :: sindex(:)
14321 integer(IK) , intent(out) :: neval
14322 integer(IK) , intent(out) :: nint
14323 integer(IK) :: err
14324 end function
14325#endif
14326
14327 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14328
14329#if RK5_ENABLED
14330 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14333#endif
14334 use pm_kind, only: RKC => RK5
14335 procedure(real(RKC)) :: getFunc
14336 type(ninf_type) , intent(in) :: lb
14337 real(RKC) , intent(in) :: ub
14338 real(RKC) , intent(in) :: abstol
14339 real(RKC) , intent(in) :: reltol
14340 type(GK61_type) , intent(in) :: qrule
14341 real(RKC) , intent(in) , contiguous :: help(:)
14342 real(RKC) , intent(out) :: integral, abserr
14343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14344 integer(IK) , intent(out) , contiguous :: sindex(:)
14345 integer(IK) , intent(out) :: neval
14346 integer(IK) , intent(out) :: nint
14347 integer(IK) :: err
14348 end function
14349#endif
14350
14351#if RK4_ENABLED
14352 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14355#endif
14356 use pm_kind, only: RKC => RK4
14357 procedure(real(RKC)) :: getFunc
14358 type(ninf_type) , intent(in) :: lb
14359 real(RKC) , intent(in) :: ub
14360 real(RKC) , intent(in) :: abstol
14361 real(RKC) , intent(in) :: reltol
14362 type(GK61_type) , intent(in) :: qrule
14363 real(RKC) , intent(in) , contiguous :: help(:)
14364 real(RKC) , intent(out) :: integral, abserr
14365 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14366 integer(IK) , intent(out) , contiguous :: sindex(:)
14367 integer(IK) , intent(out) :: neval
14368 integer(IK) , intent(out) :: nint
14369 integer(IK) :: err
14370 end function
14371#endif
14372
14373#if RK3_ENABLED
14374 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14377#endif
14378 use pm_kind, only: RKC => RK3
14379 procedure(real(RKC)) :: getFunc
14380 type(ninf_type) , intent(in) :: lb
14381 real(RKC) , intent(in) :: ub
14382 real(RKC) , intent(in) :: abstol
14383 real(RKC) , intent(in) :: reltol
14384 type(GK61_type) , intent(in) :: qrule
14385 real(RKC) , intent(in) , contiguous :: help(:)
14386 real(RKC) , intent(out) :: integral, abserr
14387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14388 integer(IK) , intent(out) , contiguous :: sindex(:)
14389 integer(IK) , intent(out) :: neval
14390 integer(IK) , intent(out) :: nint
14391 integer(IK) :: err
14392 end function
14393#endif
14394
14395#if RK2_ENABLED
14396 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14399#endif
14400 use pm_kind, only: RKC => RK2
14401 procedure(real(RKC)) :: getFunc
14402 type(ninf_type) , intent(in) :: lb
14403 real(RKC) , intent(in) :: ub
14404 real(RKC) , intent(in) :: abstol
14405 real(RKC) , intent(in) :: reltol
14406 type(GK61_type) , intent(in) :: qrule
14407 real(RKC) , intent(in) , contiguous :: help(:)
14408 real(RKC) , intent(out) :: integral, abserr
14409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14410 integer(IK) , intent(out) , contiguous :: sindex(:)
14411 integer(IK) , intent(out) :: neval
14412 integer(IK) , intent(out) :: nint
14413 integer(IK) :: err
14414 end function
14415#endif
14416
14417#if RK1_ENABLED
14418 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14421#endif
14422 use pm_kind, only: RKC => RK1
14423 procedure(real(RKC)) :: getFunc
14424 type(ninf_type) , intent(in) :: lb
14425 real(RKC) , intent(in) :: ub
14426 real(RKC) , intent(in) :: abstol
14427 real(RKC) , intent(in) :: reltol
14428 type(GK61_type) , intent(in) :: qrule
14429 real(RKC) , intent(in) , contiguous :: help(:)
14430 real(RKC) , intent(out) :: integral, abserr
14431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14432 integer(IK) , intent(out) , contiguous :: sindex(:)
14433 integer(IK) , intent(out) :: neval
14434 integer(IK) , intent(out) :: nint
14435 integer(IK) :: err
14436 end function
14437#endif
14438
14439 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14440
14441#if RK5_ENABLED
14442 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14445#endif
14446 use pm_kind, only: RKC => RK5
14447 procedure(real(RKC)) :: getFunc
14448 type(ninf_type) , intent(in) :: lb
14449 type(pinf_type) , intent(in) :: ub
14450 real(RKC) , intent(in) :: abstol
14451 real(RKC) , intent(in) :: reltol
14452 type(GK61_type) , intent(in) :: qrule
14453 real(RKC) , intent(in) , contiguous :: help(:)
14454 real(RKC) , intent(out) :: integral, abserr
14455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14456 integer(IK) , intent(out) , contiguous :: sindex(:)
14457 integer(IK) , intent(out) :: neval
14458 integer(IK) , intent(out) :: nint
14459 integer(IK) :: err
14460 end function
14461#endif
14462
14463#if RK4_ENABLED
14464 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14467#endif
14468 use pm_kind, only: RKC => RK4
14469 procedure(real(RKC)) :: getFunc
14470 type(ninf_type) , intent(in) :: lb
14471 type(pinf_type) , intent(in) :: ub
14472 real(RKC) , intent(in) :: abstol
14473 real(RKC) , intent(in) :: reltol
14474 type(GK61_type) , intent(in) :: qrule
14475 real(RKC) , intent(in) , contiguous :: help(:)
14476 real(RKC) , intent(out) :: integral, abserr
14477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14478 integer(IK) , intent(out) , contiguous :: sindex(:)
14479 integer(IK) , intent(out) :: neval
14480 integer(IK) , intent(out) :: nint
14481 integer(IK) :: err
14482 end function
14483#endif
14484
14485#if RK3_ENABLED
14486 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14489#endif
14490 use pm_kind, only: RKC => RK3
14491 procedure(real(RKC)) :: getFunc
14492 type(ninf_type) , intent(in) :: lb
14493 type(pinf_type) , intent(in) :: ub
14494 real(RKC) , intent(in) :: abstol
14495 real(RKC) , intent(in) :: reltol
14496 type(GK61_type) , intent(in) :: qrule
14497 real(RKC) , intent(in) , contiguous :: help(:)
14498 real(RKC) , intent(out) :: integral, abserr
14499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14500 integer(IK) , intent(out) , contiguous :: sindex(:)
14501 integer(IK) , intent(out) :: neval
14502 integer(IK) , intent(out) :: nint
14503 integer(IK) :: err
14504 end function
14505#endif
14506
14507#if RK2_ENABLED
14508 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14511#endif
14512 use pm_kind, only: RKC => RK2
14513 procedure(real(RKC)) :: getFunc
14514 type(ninf_type) , intent(in) :: lb
14515 type(pinf_type) , intent(in) :: ub
14516 real(RKC) , intent(in) :: abstol
14517 real(RKC) , intent(in) :: reltol
14518 type(GK61_type) , intent(in) :: qrule
14519 real(RKC) , intent(in) , contiguous :: help(:)
14520 real(RKC) , intent(out) :: integral, abserr
14521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14522 integer(IK) , intent(out) , contiguous :: sindex(:)
14523 integer(IK) , intent(out) :: neval
14524 integer(IK) , intent(out) :: nint
14525 integer(IK) :: err
14526 end function
14527#endif
14528
14529#if RK1_ENABLED
14530 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14533#endif
14534 use pm_kind, only: RKC => RK1
14535 procedure(real(RKC)) :: getFunc
14536 type(ninf_type) , intent(in) :: lb
14537 type(pinf_type) , intent(in) :: ub
14538 real(RKC) , intent(in) :: abstol
14539 real(RKC) , intent(in) :: reltol
14540 type(GK61_type) , intent(in) :: qrule
14541 real(RKC) , intent(in) , contiguous :: help(:)
14542 real(RKC) , intent(out) :: integral, abserr
14543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14544 integer(IK) , intent(out) , contiguous :: sindex(:)
14545 integer(IK) , intent(out) :: neval
14546 integer(IK) , intent(out) :: nint
14547 integer(IK) :: err
14548 end function
14549#endif
14550
14551 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14552
14553 end interface
14554
14555 ! QAGP_GKXX
14556
14557 interface getQuadErr
14558
14559 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14560
14561#if RK5_ENABLED
14562 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14563#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14564 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14565#endif
14566 use pm_kind, only: RKC => RK5
14567 procedure(real(RKC)) :: getFunc
14568 real(RKC) , intent(in) :: lb
14569 real(RKC) , intent(in) :: ub
14570 real(RKC) , intent(in) :: abstol
14571 real(RKC) , intent(in) :: reltol
14572 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14573 real(RKC) , intent(in) , contiguous :: help(:)
14574 real(RKC) , intent(out) :: integral, abserr
14575 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14576 integer(IK) , intent(out) , contiguous :: sindex(:)
14577 integer(IK) , intent(out) :: neval
14578 integer(IK) , intent(out) :: nint
14579 integer(IK) :: err
14580 end function
14581#endif
14582
14583#if RK4_ENABLED
14584 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14586 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14587#endif
14588 use pm_kind, only: RKC => RK4
14589 procedure(real(RKC)) :: getFunc
14590 real(RKC) , intent(in) :: lb
14591 real(RKC) , intent(in) :: ub
14592 real(RKC) , intent(in) :: abstol
14593 real(RKC) , intent(in) :: reltol
14594 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14595 real(RKC) , intent(in) , contiguous :: help(:)
14596 real(RKC) , intent(out) :: integral, abserr
14597 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14598 integer(IK) , intent(out) , contiguous :: sindex(:)
14599 integer(IK) , intent(out) :: neval
14600 integer(IK) , intent(out) :: nint
14601 integer(IK) :: err
14602 end function
14603#endif
14604
14605#if RK3_ENABLED
14606 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14608 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14609#endif
14610 use pm_kind, only: RKC => RK3
14611 procedure(real(RKC)) :: getFunc
14612 real(RKC) , intent(in) :: lb
14613 real(RKC) , intent(in) :: ub
14614 real(RKC) , intent(in) :: abstol
14615 real(RKC) , intent(in) :: reltol
14616 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14617 real(RKC) , intent(in) , contiguous :: help(:)
14618 real(RKC) , intent(out) :: integral, abserr
14619 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14620 integer(IK) , intent(out) , contiguous :: sindex(:)
14621 integer(IK) , intent(out) :: neval
14622 integer(IK) , intent(out) :: nint
14623 integer(IK) :: err
14624 end function
14625#endif
14626
14627#if RK2_ENABLED
14628 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14630 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14631#endif
14632 use pm_kind, only: RKC => RK2
14633 procedure(real(RKC)) :: getFunc
14634 real(RKC) , intent(in) :: lb
14635 real(RKC) , intent(in) :: ub
14636 real(RKC) , intent(in) :: abstol
14637 real(RKC) , intent(in) :: reltol
14638 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14639 real(RKC) , intent(in) , contiguous :: help(:)
14640 real(RKC) , intent(out) :: integral, abserr
14641 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14642 integer(IK) , intent(out) , contiguous :: sindex(:)
14643 integer(IK) , intent(out) :: neval
14644 integer(IK) , intent(out) :: nint
14645 integer(IK) :: err
14646 end function
14647#endif
14648
14649#if RK1_ENABLED
14650 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14652 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14653#endif
14654 use pm_kind, only: RKC => RK1
14655 procedure(real(RKC)) :: getFunc
14656 real(RKC) , intent(in) :: lb
14657 real(RKC) , intent(in) :: ub
14658 real(RKC) , intent(in) :: abstol
14659 real(RKC) , intent(in) :: reltol
14660 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14661 real(RKC) , intent(in) , contiguous :: help(:)
14662 real(RKC) , intent(out) :: integral, abserr
14663 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14664 integer(IK) , intent(out) , contiguous :: sindex(:)
14665 integer(IK) , intent(out) :: neval
14666 integer(IK) , intent(out) :: nint
14667 integer(IK) :: err
14668 end function
14669#endif
14670
14671 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14672
14673#if RK5_ENABLED
14674 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14677#endif
14678 use pm_kind, only: RKC => RK5
14679 procedure(real(RKC)) :: getFunc
14680 real(RKC) , intent(in) :: lb
14681 type(pinf_type) , intent(in) :: ub
14682 real(RKC) , intent(in) :: abstol
14683 real(RKC) , intent(in) :: reltol
14684 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14685 real(RKC) , intent(in) , contiguous :: help(:)
14686 real(RKC) , intent(out) :: integral, abserr
14687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14688 integer(IK) , intent(out) , contiguous :: sindex(:)
14689 integer(IK) , intent(out) :: neval
14690 integer(IK) , intent(out) :: nint
14691 integer(IK) :: err
14692 end function
14693#endif
14694
14695#if RK4_ENABLED
14696 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14699#endif
14700 use pm_kind, only: RKC => RK4
14701 procedure(real(RKC)) :: getFunc
14702 real(RKC) , intent(in) :: lb
14703 type(pinf_type) , intent(in) :: ub
14704 real(RKC) , intent(in) :: abstol
14705 real(RKC) , intent(in) :: reltol
14706 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14707 real(RKC) , intent(in) , contiguous :: help(:)
14708 real(RKC) , intent(out) :: integral, abserr
14709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14710 integer(IK) , intent(out) , contiguous :: sindex(:)
14711 integer(IK) , intent(out) :: neval
14712 integer(IK) , intent(out) :: nint
14713 integer(IK) :: err
14714 end function
14715#endif
14716
14717#if RK3_ENABLED
14718 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14721#endif
14722 use pm_kind, only: RKC => RK3
14723 procedure(real(RKC)) :: getFunc
14724 real(RKC) , intent(in) :: lb
14725 type(pinf_type) , intent(in) :: ub
14726 real(RKC) , intent(in) :: abstol
14727 real(RKC) , intent(in) :: reltol
14728 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14729 real(RKC) , intent(in) , contiguous :: help(:)
14730 real(RKC) , intent(out) :: integral, abserr
14731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14732 integer(IK) , intent(out) , contiguous :: sindex(:)
14733 integer(IK) , intent(out) :: neval
14734 integer(IK) , intent(out) :: nint
14735 integer(IK) :: err
14736 end function
14737#endif
14738
14739#if RK2_ENABLED
14740 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14742 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14743#endif
14744 use pm_kind, only: RKC => RK2
14745 procedure(real(RKC)) :: getFunc
14746 real(RKC) , intent(in) :: lb
14747 type(pinf_type) , intent(in) :: ub
14748 real(RKC) , intent(in) :: abstol
14749 real(RKC) , intent(in) :: reltol
14750 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14751 real(RKC) , intent(in) , contiguous :: help(:)
14752 real(RKC) , intent(out) :: integral, abserr
14753 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14754 integer(IK) , intent(out) , contiguous :: sindex(:)
14755 integer(IK) , intent(out) :: neval
14756 integer(IK) , intent(out) :: nint
14757 integer(IK) :: err
14758 end function
14759#endif
14760
14761#if RK1_ENABLED
14762 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14765#endif
14766 use pm_kind, only: RKC => RK1
14767 procedure(real(RKC)) :: getFunc
14768 real(RKC) , intent(in) :: lb
14769 type(pinf_type) , intent(in) :: ub
14770 real(RKC) , intent(in) :: abstol
14771 real(RKC) , intent(in) :: reltol
14772 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14773 real(RKC) , intent(in) , contiguous :: help(:)
14774 real(RKC) , intent(out) :: integral, abserr
14775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14776 integer(IK) , intent(out) , contiguous :: sindex(:)
14777 integer(IK) , intent(out) :: neval
14778 integer(IK) , intent(out) :: nint
14779 integer(IK) :: err
14780 end function
14781#endif
14782
14783 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14784
14785#if RK5_ENABLED
14786 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14789#endif
14790 use pm_kind, only: RKC => RK5
14791 procedure(real(RKC)) :: getFunc
14792 type(ninf_type) , intent(in) :: lb
14793 real(RKC) , intent(in) :: ub
14794 real(RKC) , intent(in) :: abstol
14795 real(RKC) , intent(in) :: reltol
14796 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14797 real(RKC) , intent(in) , contiguous :: help(:)
14798 real(RKC) , intent(out) :: integral, abserr
14799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14800 integer(IK) , intent(out) , contiguous :: sindex(:)
14801 integer(IK) , intent(out) :: neval
14802 integer(IK) , intent(out) :: nint
14803 integer(IK) :: err
14804 end function
14805#endif
14806
14807#if RK4_ENABLED
14808 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14811#endif
14812 use pm_kind, only: RKC => RK4
14813 procedure(real(RKC)) :: getFunc
14814 type(ninf_type) , intent(in) :: lb
14815 real(RKC) , intent(in) :: ub
14816 real(RKC) , intent(in) :: abstol
14817 real(RKC) , intent(in) :: reltol
14818 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14819 real(RKC) , intent(in) , contiguous :: help(:)
14820 real(RKC) , intent(out) :: integral, abserr
14821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14822 integer(IK) , intent(out) , contiguous :: sindex(:)
14823 integer(IK) , intent(out) :: neval
14824 integer(IK) , intent(out) :: nint
14825 integer(IK) :: err
14826 end function
14827#endif
14828
14829#if RK3_ENABLED
14830 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14833#endif
14834 use pm_kind, only: RKC => RK3
14835 procedure(real(RKC)) :: getFunc
14836 type(ninf_type) , intent(in) :: lb
14837 real(RKC) , intent(in) :: ub
14838 real(RKC) , intent(in) :: abstol
14839 real(RKC) , intent(in) :: reltol
14840 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14841 real(RKC) , intent(in) , contiguous :: help(:)
14842 real(RKC) , intent(out) :: integral, abserr
14843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14844 integer(IK) , intent(out) , contiguous :: sindex(:)
14845 integer(IK) , intent(out) :: neval
14846 integer(IK) , intent(out) :: nint
14847 integer(IK) :: err
14848 end function
14849#endif
14850
14851#if RK2_ENABLED
14852 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14855#endif
14856 use pm_kind, only: RKC => RK2
14857 procedure(real(RKC)) :: getFunc
14858 type(ninf_type) , intent(in) :: lb
14859 real(RKC) , intent(in) :: ub
14860 real(RKC) , intent(in) :: abstol
14861 real(RKC) , intent(in) :: reltol
14862 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14863 real(RKC) , intent(in) , contiguous :: help(:)
14864 real(RKC) , intent(out) :: integral, abserr
14865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14866 integer(IK) , intent(out) , contiguous :: sindex(:)
14867 integer(IK) , intent(out) :: neval
14868 integer(IK) , intent(out) :: nint
14869 integer(IK) :: err
14870 end function
14871#endif
14872
14873#if RK1_ENABLED
14874 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14877#endif
14878 use pm_kind, only: RKC => RK1
14879 procedure(real(RKC)) :: getFunc
14880 type(ninf_type) , intent(in) :: lb
14881 real(RKC) , intent(in) :: ub
14882 real(RKC) , intent(in) :: abstol
14883 real(RKC) , intent(in) :: reltol
14884 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14885 real(RKC) , intent(in) , contiguous :: help(:)
14886 real(RKC) , intent(out) :: integral, abserr
14887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14888 integer(IK) , intent(out) , contiguous :: sindex(:)
14889 integer(IK) , intent(out) :: neval
14890 integer(IK) , intent(out) :: nint
14891 integer(IK) :: err
14892 end function
14893#endif
14894
14895 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14896
14897#if RK5_ENABLED
14898 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14901#endif
14902 use pm_kind, only: RKC => RK5
14903 procedure(real(RKC)) :: getFunc
14904 type(ninf_type) , intent(in) :: lb
14905 type(pinf_type) , intent(in) :: ub
14906 real(RKC) , intent(in) :: abstol
14907 real(RKC) , intent(in) :: reltol
14908 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14909 real(RKC) , intent(in) , contiguous :: help(:)
14910 real(RKC) , intent(out) :: integral, abserr
14911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14912 integer(IK) , intent(out) , contiguous :: sindex(:)
14913 integer(IK) , intent(out) :: neval
14914 integer(IK) , intent(out) :: nint
14915 integer(IK) :: err
14916 end function
14917#endif
14918
14919#if RK4_ENABLED
14920 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14923#endif
14924 use pm_kind, only: RKC => RK4
14925 procedure(real(RKC)) :: getFunc
14926 type(ninf_type) , intent(in) :: lb
14927 type(pinf_type) , intent(in) :: ub
14928 real(RKC) , intent(in) :: abstol
14929 real(RKC) , intent(in) :: reltol
14930 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14931 real(RKC) , intent(in) , contiguous :: help(:)
14932 real(RKC) , intent(out) :: integral, abserr
14933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14934 integer(IK) , intent(out) , contiguous :: sindex(:)
14935 integer(IK) , intent(out) :: neval
14936 integer(IK) , intent(out) :: nint
14937 integer(IK) :: err
14938 end function
14939#endif
14940
14941#if RK3_ENABLED
14942 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
14945#endif
14946 use pm_kind, only: RKC => RK3
14947 procedure(real(RKC)) :: getFunc
14948 type(ninf_type) , intent(in) :: lb
14949 type(pinf_type) , intent(in) :: ub
14950 real(RKC) , intent(in) :: abstol
14951 real(RKC) , intent(in) :: reltol
14952 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14953 real(RKC) , intent(in) , contiguous :: help(:)
14954 real(RKC) , intent(out) :: integral, abserr
14955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14956 integer(IK) , intent(out) , contiguous :: sindex(:)
14957 integer(IK) , intent(out) :: neval
14958 integer(IK) , intent(out) :: nint
14959 integer(IK) :: err
14960 end function
14961#endif
14962
14963#if RK2_ENABLED
14964 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
14967#endif
14968 use pm_kind, only: RKC => RK2
14969 procedure(real(RKC)) :: getFunc
14970 type(ninf_type) , intent(in) :: lb
14971 type(pinf_type) , intent(in) :: ub
14972 real(RKC) , intent(in) :: abstol
14973 real(RKC) , intent(in) :: reltol
14974 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14975 real(RKC) , intent(in) , contiguous :: help(:)
14976 real(RKC) , intent(out) :: integral, abserr
14977 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14978 integer(IK) , intent(out) , contiguous :: sindex(:)
14979 integer(IK) , intent(out) :: neval
14980 integer(IK) , intent(out) :: nint
14981 integer(IK) :: err
14982 end function
14983#endif
14984
14985#if RK1_ENABLED
14986 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
14989#endif
14990 use pm_kind, only: RKC => RK1
14991 procedure(real(RKC)) :: getFunc
14992 type(ninf_type) , intent(in) :: lb
14993 type(pinf_type) , intent(in) :: ub
14994 real(RKC) , intent(in) :: abstol
14995 real(RKC) , intent(in) :: reltol
14996 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14997 real(RKC) , intent(in) , contiguous :: help(:)
14998 real(RKC) , intent(out) :: integral, abserr
14999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15000 integer(IK) , intent(out) , contiguous :: sindex(:)
15001 integer(IK) , intent(out) :: neval
15002 integer(IK) , intent(out) :: nint
15003 integer(IK) :: err
15004 end function
15005#endif
15006
15007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15008
15009 end interface
15010
15011!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15012
15013 ! QAWC FF
15014
15015 interface getQuadErr
15016
15017 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15018
15019#if RK5_ENABLED
15020 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15021#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15022 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15023#endif
15024 use pm_kind, only: RKC => RK5
15025 procedure(real(RKC)) :: getFunc
15026 real(RKC) , intent(in) :: lb
15027 real(RKC) , intent(in) :: ub
15028 real(RKC) , intent(in) :: abstol
15029 real(RKC) , intent(in) :: reltol
15030 type(GK15_type) , intent(in) :: qrule
15031 type(wcauchy_type) , intent(in) :: help
15032 real(RKC) , intent(out) :: integral, abserr
15033 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15034 integer(IK) , intent(out) , contiguous :: sindex(:)
15035 integer(IK) , intent(out) :: neval
15036 integer(IK) , intent(out) :: nint
15037 integer(IK) :: err
15038 end function
15039#endif
15040
15041#if RK4_ENABLED
15042 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15044 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15045#endif
15046 use pm_kind, only: RKC => RK4
15047 procedure(real(RKC)) :: getFunc
15048 real(RKC) , intent(in) :: lb
15049 real(RKC) , intent(in) :: ub
15050 real(RKC) , intent(in) :: abstol
15051 real(RKC) , intent(in) :: reltol
15052 type(GK15_type) , intent(in) :: qrule
15053 type(wcauchy_type) , intent(in) :: help
15054 real(RKC) , intent(out) :: integral, abserr
15055 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15056 integer(IK) , intent(out) , contiguous :: sindex(:)
15057 integer(IK) , intent(out) :: neval
15058 integer(IK) , intent(out) :: nint
15059 integer(IK) :: err
15060 end function
15061#endif
15062
15063#if RK3_ENABLED
15064 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15065#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15066 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15067#endif
15068 use pm_kind, only: RKC => RK3
15069 procedure(real(RKC)) :: getFunc
15070 real(RKC) , intent(in) :: lb
15071 real(RKC) , intent(in) :: ub
15072 real(RKC) , intent(in) :: abstol
15073 real(RKC) , intent(in) :: reltol
15074 type(GK15_type) , intent(in) :: qrule
15075 type(wcauchy_type) , intent(in) :: help
15076 real(RKC) , intent(out) :: integral, abserr
15077 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15078 integer(IK) , intent(out) , contiguous :: sindex(:)
15079 integer(IK) , intent(out) :: neval
15080 integer(IK) , intent(out) :: nint
15081 integer(IK) :: err
15082 end function
15083#endif
15084
15085#if RK2_ENABLED
15086 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15087#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15088 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15089#endif
15090 use pm_kind, only: RKC => RK2
15091 procedure(real(RKC)) :: getFunc
15092 real(RKC) , intent(in) :: lb
15093 real(RKC) , intent(in) :: ub
15094 real(RKC) , intent(in) :: abstol
15095 real(RKC) , intent(in) :: reltol
15096 type(GK15_type) , intent(in) :: qrule
15097 type(wcauchy_type) , intent(in) :: help
15098 real(RKC) , intent(out) :: integral, abserr
15099 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15100 integer(IK) , intent(out) , contiguous :: sindex(:)
15101 integer(IK) , intent(out) :: neval
15102 integer(IK) , intent(out) :: nint
15103 integer(IK) :: err
15104 end function
15105#endif
15106
15107#if RK1_ENABLED
15108 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15110 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15111#endif
15112 use pm_kind, only: RKC => RK1
15113 procedure(real(RKC)) :: getFunc
15114 real(RKC) , intent(in) :: lb
15115 real(RKC) , intent(in) :: ub
15116 real(RKC) , intent(in) :: abstol
15117 real(RKC) , intent(in) :: reltol
15118 type(GK15_type) , intent(in) :: qrule
15119 type(wcauchy_type) , intent(in) :: help
15120 real(RKC) , intent(out) :: integral, abserr
15121 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15122 integer(IK) , intent(out) , contiguous :: sindex(:)
15123 integer(IK) , intent(out) :: neval
15124 integer(IK) , intent(out) :: nint
15125 integer(IK) :: err
15126 end function
15127#endif
15128
15129 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15130
15131#if RK5_ENABLED
15132 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15135#endif
15136 use pm_kind, only: RKC => RK5
15137 procedure(real(RKC)) :: getFunc
15138 real(RKC) , intent(in) :: lb
15139 real(RKC) , intent(in) :: ub
15140 real(RKC) , intent(in) :: abstol
15141 real(RKC) , intent(in) :: reltol
15142 type(GK21_type) , intent(in) :: qrule
15143 type(wcauchy_type) , intent(in) :: help
15144 real(RKC) , intent(out) :: integral, abserr
15145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15146 integer(IK) , intent(out) , contiguous :: sindex(:)
15147 integer(IK) , intent(out) :: neval
15148 integer(IK) , intent(out) :: nint
15149 integer(IK) :: err
15150 end function
15151#endif
15152
15153#if RK4_ENABLED
15154 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15157#endif
15158 use pm_kind, only: RKC => RK4
15159 procedure(real(RKC)) :: getFunc
15160 real(RKC) , intent(in) :: lb
15161 real(RKC) , intent(in) :: ub
15162 real(RKC) , intent(in) :: abstol
15163 real(RKC) , intent(in) :: reltol
15164 type(GK21_type) , intent(in) :: qrule
15165 type(wcauchy_type) , intent(in) :: help
15166 real(RKC) , intent(out) :: integral, abserr
15167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15168 integer(IK) , intent(out) , contiguous :: sindex(:)
15169 integer(IK) , intent(out) :: neval
15170 integer(IK) , intent(out) :: nint
15171 integer(IK) :: err
15172 end function
15173#endif
15174
15175#if RK3_ENABLED
15176 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15178 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15179#endif
15180 use pm_kind, only: RKC => RK3
15181 procedure(real(RKC)) :: getFunc
15182 real(RKC) , intent(in) :: lb
15183 real(RKC) , intent(in) :: ub
15184 real(RKC) , intent(in) :: abstol
15185 real(RKC) , intent(in) :: reltol
15186 type(GK21_type) , intent(in) :: qrule
15187 type(wcauchy_type) , intent(in) :: help
15188 real(RKC) , intent(out) :: integral, abserr
15189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15190 integer(IK) , intent(out) , contiguous :: sindex(:)
15191 integer(IK) , intent(out) :: neval
15192 integer(IK) , intent(out) :: nint
15193 integer(IK) :: err
15194 end function
15195#endif
15196
15197#if RK2_ENABLED
15198 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15200 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15201#endif
15202 use pm_kind, only: RKC => RK2
15203 procedure(real(RKC)) :: getFunc
15204 real(RKC) , intent(in) :: lb
15205 real(RKC) , intent(in) :: ub
15206 real(RKC) , intent(in) :: abstol
15207 real(RKC) , intent(in) :: reltol
15208 type(GK21_type) , intent(in) :: qrule
15209 type(wcauchy_type) , intent(in) :: help
15210 real(RKC) , intent(out) :: integral, abserr
15211 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15212 integer(IK) , intent(out) , contiguous :: sindex(:)
15213 integer(IK) , intent(out) :: neval
15214 integer(IK) , intent(out) :: nint
15215 integer(IK) :: err
15216 end function
15217#endif
15218
15219#if RK1_ENABLED
15220 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15221#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15222 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15223#endif
15224 use pm_kind, only: RKC => RK1
15225 procedure(real(RKC)) :: getFunc
15226 real(RKC) , intent(in) :: lb
15227 real(RKC) , intent(in) :: ub
15228 real(RKC) , intent(in) :: abstol
15229 real(RKC) , intent(in) :: reltol
15230 type(GK21_type) , intent(in) :: qrule
15231 type(wcauchy_type) , intent(in) :: help
15232 real(RKC) , intent(out) :: integral, abserr
15233 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15234 integer(IK) , intent(out) , contiguous :: sindex(:)
15235 integer(IK) , intent(out) :: neval
15236 integer(IK) , intent(out) :: nint
15237 integer(IK) :: err
15238 end function
15239#endif
15240
15241 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15242
15243#if RK5_ENABLED
15244 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15246 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15247#endif
15248 use pm_kind, only: RKC => RK5
15249 procedure(real(RKC)) :: getFunc
15250 real(RKC) , intent(in) :: lb
15251 real(RKC) , intent(in) :: ub
15252 real(RKC) , intent(in) :: abstol
15253 real(RKC) , intent(in) :: reltol
15254 type(GK31_type) , intent(in) :: qrule
15255 type(wcauchy_type) , intent(in) :: help
15256 real(RKC) , intent(out) :: integral, abserr
15257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15258 integer(IK) , intent(out) , contiguous :: sindex(:)
15259 integer(IK) , intent(out) :: neval
15260 integer(IK) , intent(out) :: nint
15261 integer(IK) :: err
15262 end function
15263#endif
15264
15265#if RK4_ENABLED
15266 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15268 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15269#endif
15270 use pm_kind, only: RKC => RK4
15271 procedure(real(RKC)) :: getFunc
15272 real(RKC) , intent(in) :: lb
15273 real(RKC) , intent(in) :: ub
15274 real(RKC) , intent(in) :: abstol
15275 real(RKC) , intent(in) :: reltol
15276 type(GK31_type) , intent(in) :: qrule
15277 type(wcauchy_type) , intent(in) :: help
15278 real(RKC) , intent(out) :: integral, abserr
15279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15280 integer(IK) , intent(out) , contiguous :: sindex(:)
15281 integer(IK) , intent(out) :: neval
15282 integer(IK) , intent(out) :: nint
15283 integer(IK) :: err
15284 end function
15285#endif
15286
15287#if RK3_ENABLED
15288 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15290 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15291#endif
15292 use pm_kind, only: RKC => RK3
15293 procedure(real(RKC)) :: getFunc
15294 real(RKC) , intent(in) :: lb
15295 real(RKC) , intent(in) :: ub
15296 real(RKC) , intent(in) :: abstol
15297 real(RKC) , intent(in) :: reltol
15298 type(GK31_type) , intent(in) :: qrule
15299 type(wcauchy_type) , intent(in) :: help
15300 real(RKC) , intent(out) :: integral, abserr
15301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15302 integer(IK) , intent(out) , contiguous :: sindex(:)
15303 integer(IK) , intent(out) :: neval
15304 integer(IK) , intent(out) :: nint
15305 integer(IK) :: err
15306 end function
15307#endif
15308
15309#if RK2_ENABLED
15310 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15312 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15313#endif
15314 use pm_kind, only: RKC => RK2
15315 procedure(real(RKC)) :: getFunc
15316 real(RKC) , intent(in) :: lb
15317 real(RKC) , intent(in) :: ub
15318 real(RKC) , intent(in) :: abstol
15319 real(RKC) , intent(in) :: reltol
15320 type(GK31_type) , intent(in) :: qrule
15321 type(wcauchy_type) , intent(in) :: help
15322 real(RKC) , intent(out) :: integral, abserr
15323 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15324 integer(IK) , intent(out) , contiguous :: sindex(:)
15325 integer(IK) , intent(out) :: neval
15326 integer(IK) , intent(out) :: nint
15327 integer(IK) :: err
15328 end function
15329#endif
15330
15331#if RK1_ENABLED
15332 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15334 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15335#endif
15336 use pm_kind, only: RKC => RK1
15337 procedure(real(RKC)) :: getFunc
15338 real(RKC) , intent(in) :: lb
15339 real(RKC) , intent(in) :: ub
15340 real(RKC) , intent(in) :: abstol
15341 real(RKC) , intent(in) :: reltol
15342 type(GK31_type) , intent(in) :: qrule
15343 type(wcauchy_type) , intent(in) :: help
15344 real(RKC) , intent(out) :: integral, abserr
15345 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15346 integer(IK) , intent(out) , contiguous :: sindex(:)
15347 integer(IK) , intent(out) :: neval
15348 integer(IK) , intent(out) :: nint
15349 integer(IK) :: err
15350 end function
15351#endif
15352
15353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15354
15355#if RK5_ENABLED
15356 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15358 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15359#endif
15360 use pm_kind, only: RKC => RK5
15361 procedure(real(RKC)) :: getFunc
15362 real(RKC) , intent(in) :: lb
15363 real(RKC) , intent(in) :: ub
15364 real(RKC) , intent(in) :: abstol
15365 real(RKC) , intent(in) :: reltol
15366 type(GK41_type) , intent(in) :: qrule
15367 type(wcauchy_type) , intent(in) :: help
15368 real(RKC) , intent(out) :: integral, abserr
15369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15370 integer(IK) , intent(out) , contiguous :: sindex(:)
15371 integer(IK) , intent(out) :: neval
15372 integer(IK) , intent(out) :: nint
15373 integer(IK) :: err
15374 end function
15375#endif
15376
15377#if RK4_ENABLED
15378 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15381#endif
15382 use pm_kind, only: RKC => RK4
15383 procedure(real(RKC)) :: getFunc
15384 real(RKC) , intent(in) :: lb
15385 real(RKC) , intent(in) :: ub
15386 real(RKC) , intent(in) :: abstol
15387 real(RKC) , intent(in) :: reltol
15388 type(GK41_type) , intent(in) :: qrule
15389 type(wcauchy_type) , intent(in) :: help
15390 real(RKC) , intent(out) :: integral, abserr
15391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15392 integer(IK) , intent(out) , contiguous :: sindex(:)
15393 integer(IK) , intent(out) :: neval
15394 integer(IK) , intent(out) :: nint
15395 integer(IK) :: err
15396 end function
15397#endif
15398
15399#if RK3_ENABLED
15400 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15402 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15403#endif
15404 use pm_kind, only: RKC => RK3
15405 procedure(real(RKC)) :: getFunc
15406 real(RKC) , intent(in) :: lb
15407 real(RKC) , intent(in) :: ub
15408 real(RKC) , intent(in) :: abstol
15409 real(RKC) , intent(in) :: reltol
15410 type(GK41_type) , intent(in) :: qrule
15411 type(wcauchy_type) , intent(in) :: help
15412 real(RKC) , intent(out) :: integral, abserr
15413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15414 integer(IK) , intent(out) , contiguous :: sindex(:)
15415 integer(IK) , intent(out) :: neval
15416 integer(IK) , intent(out) :: nint
15417 integer(IK) :: err
15418 end function
15419#endif
15420
15421#if RK2_ENABLED
15422 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15424 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15425#endif
15426 use pm_kind, only: RKC => RK2
15427 procedure(real(RKC)) :: getFunc
15428 real(RKC) , intent(in) :: lb
15429 real(RKC) , intent(in) :: ub
15430 real(RKC) , intent(in) :: abstol
15431 real(RKC) , intent(in) :: reltol
15432 type(GK41_type) , intent(in) :: qrule
15433 type(wcauchy_type) , intent(in) :: help
15434 real(RKC) , intent(out) :: integral, abserr
15435 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15436 integer(IK) , intent(out) , contiguous :: sindex(:)
15437 integer(IK) , intent(out) :: neval
15438 integer(IK) , intent(out) :: nint
15439 integer(IK) :: err
15440 end function
15441#endif
15442
15443#if RK1_ENABLED
15444 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15445#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15446 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15447#endif
15448 use pm_kind, only: RKC => RK1
15449 procedure(real(RKC)) :: getFunc
15450 real(RKC) , intent(in) :: lb
15451 real(RKC) , intent(in) :: ub
15452 real(RKC) , intent(in) :: abstol
15453 real(RKC) , intent(in) :: reltol
15454 type(GK41_type) , intent(in) :: qrule
15455 type(wcauchy_type) , intent(in) :: help
15456 real(RKC) , intent(out) :: integral, abserr
15457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15458 integer(IK) , intent(out) , contiguous :: sindex(:)
15459 integer(IK) , intent(out) :: neval
15460 integer(IK) , intent(out) :: nint
15461 integer(IK) :: err
15462 end function
15463#endif
15464
15465 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15466
15467#if RK5_ENABLED
15468 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15470 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15471#endif
15472 use pm_kind, only: RKC => RK5
15473 procedure(real(RKC)) :: getFunc
15474 real(RKC) , intent(in) :: lb
15475 real(RKC) , intent(in) :: ub
15476 real(RKC) , intent(in) :: abstol
15477 real(RKC) , intent(in) :: reltol
15478 type(GK51_type) , intent(in) :: qrule
15479 type(wcauchy_type) , intent(in) :: help
15480 real(RKC) , intent(out) :: integral, abserr
15481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15482 integer(IK) , intent(out) , contiguous :: sindex(:)
15483 integer(IK) , intent(out) :: neval
15484 integer(IK) , intent(out) :: nint
15485 integer(IK) :: err
15486 end function
15487#endif
15488
15489#if RK4_ENABLED
15490 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15493#endif
15494 use pm_kind, only: RKC => RK4
15495 procedure(real(RKC)) :: getFunc
15496 real(RKC) , intent(in) :: lb
15497 real(RKC) , intent(in) :: ub
15498 real(RKC) , intent(in) :: abstol
15499 real(RKC) , intent(in) :: reltol
15500 type(GK51_type) , intent(in) :: qrule
15501 type(wcauchy_type) , intent(in) :: help
15502 real(RKC) , intent(out) :: integral, abserr
15503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15504 integer(IK) , intent(out) , contiguous :: sindex(:)
15505 integer(IK) , intent(out) :: neval
15506 integer(IK) , intent(out) :: nint
15507 integer(IK) :: err
15508 end function
15509#endif
15510
15511#if RK3_ENABLED
15512 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15514 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15515#endif
15516 use pm_kind, only: RKC => RK3
15517 procedure(real(RKC)) :: getFunc
15518 real(RKC) , intent(in) :: lb
15519 real(RKC) , intent(in) :: ub
15520 real(RKC) , intent(in) :: abstol
15521 real(RKC) , intent(in) :: reltol
15522 type(GK51_type) , intent(in) :: qrule
15523 type(wcauchy_type) , intent(in) :: help
15524 real(RKC) , intent(out) :: integral, abserr
15525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15526 integer(IK) , intent(out) , contiguous :: sindex(:)
15527 integer(IK) , intent(out) :: neval
15528 integer(IK) , intent(out) :: nint
15529 integer(IK) :: err
15530 end function
15531#endif
15532
15533#if RK2_ENABLED
15534 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15536 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15537#endif
15538 use pm_kind, only: RKC => RK2
15539 procedure(real(RKC)) :: getFunc
15540 real(RKC) , intent(in) :: lb
15541 real(RKC) , intent(in) :: ub
15542 real(RKC) , intent(in) :: abstol
15543 real(RKC) , intent(in) :: reltol
15544 type(GK51_type) , intent(in) :: qrule
15545 type(wcauchy_type) , intent(in) :: help
15546 real(RKC) , intent(out) :: integral, abserr
15547 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15548 integer(IK) , intent(out) , contiguous :: sindex(:)
15549 integer(IK) , intent(out) :: neval
15550 integer(IK) , intent(out) :: nint
15551 integer(IK) :: err
15552 end function
15553#endif
15554
15555#if RK1_ENABLED
15556 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15558 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15559#endif
15560 use pm_kind, only: RKC => RK1
15561 procedure(real(RKC)) :: getFunc
15562 real(RKC) , intent(in) :: lb
15563 real(RKC) , intent(in) :: ub
15564 real(RKC) , intent(in) :: abstol
15565 real(RKC) , intent(in) :: reltol
15566 type(GK51_type) , intent(in) :: qrule
15567 type(wcauchy_type) , intent(in) :: help
15568 real(RKC) , intent(out) :: integral, abserr
15569 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15570 integer(IK) , intent(out) , contiguous :: sindex(:)
15571 integer(IK) , intent(out) :: neval
15572 integer(IK) , intent(out) :: nint
15573 integer(IK) :: err
15574 end function
15575#endif
15576
15577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15578
15579#if RK5_ENABLED
15580 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15582 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15583#endif
15584 use pm_kind, only: RKC => RK5
15585 procedure(real(RKC)) :: getFunc
15586 real(RKC) , intent(in) :: lb
15587 real(RKC) , intent(in) :: ub
15588 real(RKC) , intent(in) :: abstol
15589 real(RKC) , intent(in) :: reltol
15590 type(GK61_type) , intent(in) :: qrule
15591 type(wcauchy_type) , intent(in) :: help
15592 real(RKC) , intent(out) :: integral, abserr
15593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15594 integer(IK) , intent(out) , contiguous :: sindex(:)
15595 integer(IK) , intent(out) :: neval
15596 integer(IK) , intent(out) :: nint
15597 integer(IK) :: err
15598 end function
15599#endif
15600
15601#if RK4_ENABLED
15602 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15605#endif
15606 use pm_kind, only: RKC => RK4
15607 procedure(real(RKC)) :: getFunc
15608 real(RKC) , intent(in) :: lb
15609 real(RKC) , intent(in) :: ub
15610 real(RKC) , intent(in) :: abstol
15611 real(RKC) , intent(in) :: reltol
15612 type(GK61_type) , intent(in) :: qrule
15613 type(wcauchy_type) , intent(in) :: help
15614 real(RKC) , intent(out) :: integral, abserr
15615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15616 integer(IK) , intent(out) , contiguous :: sindex(:)
15617 integer(IK) , intent(out) :: neval
15618 integer(IK) , intent(out) :: nint
15619 integer(IK) :: err
15620 end function
15621#endif
15622
15623#if RK3_ENABLED
15624 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15627#endif
15628 use pm_kind, only: RKC => RK3
15629 procedure(real(RKC)) :: getFunc
15630 real(RKC) , intent(in) :: lb
15631 real(RKC) , intent(in) :: ub
15632 real(RKC) , intent(in) :: abstol
15633 real(RKC) , intent(in) :: reltol
15634 type(GK61_type) , intent(in) :: qrule
15635 type(wcauchy_type) , intent(in) :: help
15636 real(RKC) , intent(out) :: integral, abserr
15637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15638 integer(IK) , intent(out) , contiguous :: sindex(:)
15639 integer(IK) , intent(out) :: neval
15640 integer(IK) , intent(out) :: nint
15641 integer(IK) :: err
15642 end function
15643#endif
15644
15645#if RK2_ENABLED
15646 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15648 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15649#endif
15650 use pm_kind, only: RKC => RK2
15651 procedure(real(RKC)) :: getFunc
15652 real(RKC) , intent(in) :: lb
15653 real(RKC) , intent(in) :: ub
15654 real(RKC) , intent(in) :: abstol
15655 real(RKC) , intent(in) :: reltol
15656 type(GK61_type) , intent(in) :: qrule
15657 type(wcauchy_type) , intent(in) :: help
15658 real(RKC) , intent(out) :: integral, abserr
15659 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15660 integer(IK) , intent(out) , contiguous :: sindex(:)
15661 integer(IK) , intent(out) :: neval
15662 integer(IK) , intent(out) :: nint
15663 integer(IK) :: err
15664 end function
15665#endif
15666
15667#if RK1_ENABLED
15668 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15669#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15670 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15671#endif
15672 use pm_kind, only: RKC => RK1
15673 procedure(real(RKC)) :: getFunc
15674 real(RKC) , intent(in) :: lb
15675 real(RKC) , intent(in) :: ub
15676 real(RKC) , intent(in) :: abstol
15677 real(RKC) , intent(in) :: reltol
15678 type(GK61_type) , intent(in) :: qrule
15679 type(wcauchy_type) , intent(in) :: help
15680 real(RKC) , intent(out) :: integral, abserr
15681 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15682 integer(IK) , intent(out) , contiguous :: sindex(:)
15683 integer(IK) , intent(out) :: neval
15684 integer(IK) , intent(out) :: nint
15685 integer(IK) :: err
15686 end function
15687#endif
15688
15689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15690
15691#if RK5_ENABLED
15692 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15695#endif
15696 use pm_kind, only: RKC => RK5
15697 procedure(real(RKC)) :: getFunc
15698 real(RKC) , intent(in) :: lb
15699 real(RKC) , intent(in) :: ub
15700 real(RKC) , intent(in) :: abstol
15701 real(RKC) , intent(in) :: reltol
15702 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15703 type(wcauchy_type) , intent(in) :: help
15704 real(RKC) , intent(out) :: integral, abserr
15705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15706 integer(IK) , intent(out) , contiguous :: sindex(:)
15707 integer(IK) , intent(out) :: neval
15708 integer(IK) , intent(out) :: nint
15709 integer(IK) :: err
15710 end function
15711#endif
15712
15713#if RK4_ENABLED
15714 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15717#endif
15718 use pm_kind, only: RKC => RK4
15719 procedure(real(RKC)) :: getFunc
15720 real(RKC) , intent(in) :: lb
15721 real(RKC) , intent(in) :: ub
15722 real(RKC) , intent(in) :: abstol
15723 real(RKC) , intent(in) :: reltol
15724 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15725 type(wcauchy_type) , intent(in) :: help
15726 real(RKC) , intent(out) :: integral, abserr
15727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15728 integer(IK) , intent(out) , contiguous :: sindex(:)
15729 integer(IK) , intent(out) :: neval
15730 integer(IK) , intent(out) :: nint
15731 integer(IK) :: err
15732 end function
15733#endif
15734
15735#if RK3_ENABLED
15736 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15739#endif
15740 use pm_kind, only: RKC => RK3
15741 procedure(real(RKC)) :: getFunc
15742 real(RKC) , intent(in) :: lb
15743 real(RKC) , intent(in) :: ub
15744 real(RKC) , intent(in) :: abstol
15745 real(RKC) , intent(in) :: reltol
15746 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15747 type(wcauchy_type) , intent(in) :: help
15748 real(RKC) , intent(out) :: integral, abserr
15749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15750 integer(IK) , intent(out) , contiguous :: sindex(:)
15751 integer(IK) , intent(out) :: neval
15752 integer(IK) , intent(out) :: nint
15753 integer(IK) :: err
15754 end function
15755#endif
15756
15757#if RK2_ENABLED
15758 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15760 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15761#endif
15762 use pm_kind, only: RKC => RK2
15763 procedure(real(RKC)) :: getFunc
15764 real(RKC) , intent(in) :: lb
15765 real(RKC) , intent(in) :: ub
15766 real(RKC) , intent(in) :: abstol
15767 real(RKC) , intent(in) :: reltol
15768 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15769 type(wcauchy_type) , intent(in) :: help
15770 real(RKC) , intent(out) :: integral, abserr
15771 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15772 integer(IK) , intent(out) , contiguous :: sindex(:)
15773 integer(IK) , intent(out) :: neval
15774 integer(IK) , intent(out) :: nint
15775 integer(IK) :: err
15776 end function
15777#endif
15778
15779#if RK1_ENABLED
15780 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15782 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15783#endif
15784 use pm_kind, only: RKC => RK1
15785 procedure(real(RKC)) :: getFunc
15786 real(RKC) , intent(in) :: lb
15787 real(RKC) , intent(in) :: ub
15788 real(RKC) , intent(in) :: abstol
15789 real(RKC) , intent(in) :: reltol
15790 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15791 type(wcauchy_type) , intent(in) :: help
15792 real(RKC) , intent(out) :: integral, abserr
15793 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15794 integer(IK) , intent(out) , contiguous :: sindex(:)
15795 integer(IK) , intent(out) :: neval
15796 integer(IK) , intent(out) :: nint
15797 integer(IK) :: err
15798 end function
15799#endif
15800
15801 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15802
15803 end interface
15804
15805 ! QAWC FI
15806
15807 interface getQuadErr
15808
15809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15810
15811#if RK5_ENABLED
15812 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15814 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15815#endif
15816 use pm_kind, only: RKC => RK5
15817 procedure(real(RKC)) :: getFunc
15818 real(RKC) , intent(in) :: lb
15819 type(pinf_type) , intent(in) :: ub
15820 real(RKC) , intent(in) :: abstol
15821 real(RKC) , intent(in) :: reltol
15822 type(GK15_type) , intent(in) :: qrule
15823 type(wcauchy_type) , intent(in) :: help
15824 real(RKC) , intent(out) :: integral, abserr
15825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15826 integer(IK) , intent(out) , contiguous :: sindex(:)
15827 integer(IK) , intent(out) :: neval
15828 integer(IK) , intent(out) :: nint
15829 integer(IK) :: err
15830 end function
15831#endif
15832
15833#if RK4_ENABLED
15834 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15836 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15837#endif
15838 use pm_kind, only: RKC => RK4
15839 procedure(real(RKC)) :: getFunc
15840 real(RKC) , intent(in) :: lb
15841 type(pinf_type) , intent(in) :: ub
15842 real(RKC) , intent(in) :: abstol
15843 real(RKC) , intent(in) :: reltol
15844 type(GK15_type) , intent(in) :: qrule
15845 type(wcauchy_type) , intent(in) :: help
15846 real(RKC) , intent(out) :: integral, abserr
15847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15848 integer(IK) , intent(out) , contiguous :: sindex(:)
15849 integer(IK) , intent(out) :: neval
15850 integer(IK) , intent(out) :: nint
15851 integer(IK) :: err
15852 end function
15853#endif
15854
15855#if RK3_ENABLED
15856 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15858 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15859#endif
15860 use pm_kind, only: RKC => RK3
15861 procedure(real(RKC)) :: getFunc
15862 real(RKC) , intent(in) :: lb
15863 type(pinf_type) , intent(in) :: ub
15864 real(RKC) , intent(in) :: abstol
15865 real(RKC) , intent(in) :: reltol
15866 type(GK15_type) , intent(in) :: qrule
15867 type(wcauchy_type) , intent(in) :: help
15868 real(RKC) , intent(out) :: integral, abserr
15869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15870 integer(IK) , intent(out) , contiguous :: sindex(:)
15871 integer(IK) , intent(out) :: neval
15872 integer(IK) , intent(out) :: nint
15873 integer(IK) :: err
15874 end function
15875#endif
15876
15877#if RK2_ENABLED
15878 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15880 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15881#endif
15882 use pm_kind, only: RKC => RK2
15883 procedure(real(RKC)) :: getFunc
15884 real(RKC) , intent(in) :: lb
15885 type(pinf_type) , intent(in) :: ub
15886 real(RKC) , intent(in) :: abstol
15887 real(RKC) , intent(in) :: reltol
15888 type(GK15_type) , intent(in) :: qrule
15889 type(wcauchy_type) , intent(in) :: help
15890 real(RKC) , intent(out) :: integral, abserr
15891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15892 integer(IK) , intent(out) , contiguous :: sindex(:)
15893 integer(IK) , intent(out) :: neval
15894 integer(IK) , intent(out) :: nint
15895 integer(IK) :: err
15896 end function
15897#endif
15898
15899#if RK1_ENABLED
15900 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15902 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15903#endif
15904 use pm_kind, only: RKC => RK1
15905 procedure(real(RKC)) :: getFunc
15906 real(RKC) , intent(in) :: lb
15907 type(pinf_type) , intent(in) :: ub
15908 real(RKC) , intent(in) :: abstol
15909 real(RKC) , intent(in) :: reltol
15910 type(GK15_type) , intent(in) :: qrule
15911 type(wcauchy_type) , intent(in) :: help
15912 real(RKC) , intent(out) :: integral, abserr
15913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15914 integer(IK) , intent(out) , contiguous :: sindex(:)
15915 integer(IK) , intent(out) :: neval
15916 integer(IK) , intent(out) :: nint
15917 integer(IK) :: err
15918 end function
15919#endif
15920
15921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15922
15923#if RK5_ENABLED
15924 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15926 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15927#endif
15928 use pm_kind, only: RKC => RK5
15929 procedure(real(RKC)) :: getFunc
15930 real(RKC) , intent(in) :: lb
15931 type(pinf_type) , intent(in) :: ub
15932 real(RKC) , intent(in) :: abstol
15933 real(RKC) , intent(in) :: reltol
15934 type(GK21_type) , intent(in) :: qrule
15935 type(wcauchy_type) , intent(in) :: help
15936 real(RKC) , intent(out) :: integral, abserr
15937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15938 integer(IK) , intent(out) , contiguous :: sindex(:)
15939 integer(IK) , intent(out) :: neval
15940 integer(IK) , intent(out) :: nint
15941 integer(IK) :: err
15942 end function
15943#endif
15944
15945#if RK4_ENABLED
15946 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15948 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
15949#endif
15950 use pm_kind, only: RKC => RK4
15951 procedure(real(RKC)) :: getFunc
15952 real(RKC) , intent(in) :: lb
15953 type(pinf_type) , intent(in) :: ub
15954 real(RKC) , intent(in) :: abstol
15955 real(RKC) , intent(in) :: reltol
15956 type(GK21_type) , intent(in) :: qrule
15957 type(wcauchy_type) , intent(in) :: help
15958 real(RKC) , intent(out) :: integral, abserr
15959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15960 integer(IK) , intent(out) , contiguous :: sindex(:)
15961 integer(IK) , intent(out) :: neval
15962 integer(IK) , intent(out) :: nint
15963 integer(IK) :: err
15964 end function
15965#endif
15966
15967#if RK3_ENABLED
15968 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15970 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
15971#endif
15972 use pm_kind, only: RKC => RK3
15973 procedure(real(RKC)) :: getFunc
15974 real(RKC) , intent(in) :: lb
15975 type(pinf_type) , intent(in) :: ub
15976 real(RKC) , intent(in) :: abstol
15977 real(RKC) , intent(in) :: reltol
15978 type(GK21_type) , intent(in) :: qrule
15979 type(wcauchy_type) , intent(in) :: help
15980 real(RKC) , intent(out) :: integral, abserr
15981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15982 integer(IK) , intent(out) , contiguous :: sindex(:)
15983 integer(IK) , intent(out) :: neval
15984 integer(IK) , intent(out) :: nint
15985 integer(IK) :: err
15986 end function
15987#endif
15988
15989#if RK2_ENABLED
15990 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15992 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
15993#endif
15994 use pm_kind, only: RKC => RK2
15995 procedure(real(RKC)) :: getFunc
15996 real(RKC) , intent(in) :: lb
15997 type(pinf_type) , intent(in) :: ub
15998 real(RKC) , intent(in) :: abstol
15999 real(RKC) , intent(in) :: reltol
16000 type(GK21_type) , intent(in) :: qrule
16001 type(wcauchy_type) , intent(in) :: help
16002 real(RKC) , intent(out) :: integral, abserr
16003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16004 integer(IK) , intent(out) , contiguous :: sindex(:)
16005 integer(IK) , intent(out) :: neval
16006 integer(IK) , intent(out) :: nint
16007 integer(IK) :: err
16008 end function
16009#endif
16010
16011#if RK1_ENABLED
16012 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16014 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16015#endif
16016 use pm_kind, only: RKC => RK1
16017 procedure(real(RKC)) :: getFunc
16018 real(RKC) , intent(in) :: lb
16019 type(pinf_type) , intent(in) :: ub
16020 real(RKC) , intent(in) :: abstol
16021 real(RKC) , intent(in) :: reltol
16022 type(GK21_type) , intent(in) :: qrule
16023 type(wcauchy_type) , intent(in) :: help
16024 real(RKC) , intent(out) :: integral, abserr
16025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16026 integer(IK) , intent(out) , contiguous :: sindex(:)
16027 integer(IK) , intent(out) :: neval
16028 integer(IK) , intent(out) :: nint
16029 integer(IK) :: err
16030 end function
16031#endif
16032
16033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16034
16035#if RK5_ENABLED
16036 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16038 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16039#endif
16040 use pm_kind, only: RKC => RK5
16041 procedure(real(RKC)) :: getFunc
16042 real(RKC) , intent(in) :: lb
16043 type(pinf_type) , intent(in) :: ub
16044 real(RKC) , intent(in) :: abstol
16045 real(RKC) , intent(in) :: reltol
16046 type(GK31_type) , intent(in) :: qrule
16047 type(wcauchy_type) , intent(in) :: help
16048 real(RKC) , intent(out) :: integral, abserr
16049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16050 integer(IK) , intent(out) , contiguous :: sindex(:)
16051 integer(IK) , intent(out) :: neval
16052 integer(IK) , intent(out) :: nint
16053 integer(IK) :: err
16054 end function
16055#endif
16056
16057#if RK4_ENABLED
16058 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16061#endif
16062 use pm_kind, only: RKC => RK4
16063 procedure(real(RKC)) :: getFunc
16064 real(RKC) , intent(in) :: lb
16065 type(pinf_type) , intent(in) :: ub
16066 real(RKC) , intent(in) :: abstol
16067 real(RKC) , intent(in) :: reltol
16068 type(GK31_type) , intent(in) :: qrule
16069 type(wcauchy_type) , intent(in) :: help
16070 real(RKC) , intent(out) :: integral, abserr
16071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16072 integer(IK) , intent(out) , contiguous :: sindex(:)
16073 integer(IK) , intent(out) :: neval
16074 integer(IK) , intent(out) :: nint
16075 integer(IK) :: err
16076 end function
16077#endif
16078
16079#if RK3_ENABLED
16080 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16082 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16083#endif
16084 use pm_kind, only: RKC => RK3
16085 procedure(real(RKC)) :: getFunc
16086 real(RKC) , intent(in) :: lb
16087 type(pinf_type) , intent(in) :: ub
16088 real(RKC) , intent(in) :: abstol
16089 real(RKC) , intent(in) :: reltol
16090 type(GK31_type) , intent(in) :: qrule
16091 type(wcauchy_type) , intent(in) :: help
16092 real(RKC) , intent(out) :: integral, abserr
16093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16094 integer(IK) , intent(out) , contiguous :: sindex(:)
16095 integer(IK) , intent(out) :: neval
16096 integer(IK) , intent(out) :: nint
16097 integer(IK) :: err
16098 end function
16099#endif
16100
16101#if RK2_ENABLED
16102 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16104 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16105#endif
16106 use pm_kind, only: RKC => RK2
16107 procedure(real(RKC)) :: getFunc
16108 real(RKC) , intent(in) :: lb
16109 type(pinf_type) , intent(in) :: ub
16110 real(RKC) , intent(in) :: abstol
16111 real(RKC) , intent(in) :: reltol
16112 type(GK31_type) , intent(in) :: qrule
16113 type(wcauchy_type) , intent(in) :: help
16114 real(RKC) , intent(out) :: integral, abserr
16115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16116 integer(IK) , intent(out) , contiguous :: sindex(:)
16117 integer(IK) , intent(out) :: neval
16118 integer(IK) , intent(out) :: nint
16119 integer(IK) :: err
16120 end function
16121#endif
16122
16123#if RK1_ENABLED
16124 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16126 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16127#endif
16128 use pm_kind, only: RKC => RK1
16129 procedure(real(RKC)) :: getFunc
16130 real(RKC) , intent(in) :: lb
16131 type(pinf_type) , intent(in) :: ub
16132 real(RKC) , intent(in) :: abstol
16133 real(RKC) , intent(in) :: reltol
16134 type(GK31_type) , intent(in) :: qrule
16135 type(wcauchy_type) , intent(in) :: help
16136 real(RKC) , intent(out) :: integral, abserr
16137 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16138 integer(IK) , intent(out) , contiguous :: sindex(:)
16139 integer(IK) , intent(out) :: neval
16140 integer(IK) , intent(out) :: nint
16141 integer(IK) :: err
16142 end function
16143#endif
16144
16145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16146
16147#if RK5_ENABLED
16148 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16150 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16151#endif
16152 use pm_kind, only: RKC => RK5
16153 procedure(real(RKC)) :: getFunc
16154 real(RKC) , intent(in) :: lb
16155 type(pinf_type) , intent(in) :: ub
16156 real(RKC) , intent(in) :: abstol
16157 real(RKC) , intent(in) :: reltol
16158 type(GK41_type) , intent(in) :: qrule
16159 type(wcauchy_type) , intent(in) :: help
16160 real(RKC) , intent(out) :: integral, abserr
16161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16162 integer(IK) , intent(out) , contiguous :: sindex(:)
16163 integer(IK) , intent(out) :: neval
16164 integer(IK) , intent(out) :: nint
16165 integer(IK) :: err
16166 end function
16167#endif
16168
16169#if RK4_ENABLED
16170 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16172 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16173#endif
16174 use pm_kind, only: RKC => RK4
16175 procedure(real(RKC)) :: getFunc
16176 real(RKC) , intent(in) :: lb
16177 type(pinf_type) , intent(in) :: ub
16178 real(RKC) , intent(in) :: abstol
16179 real(RKC) , intent(in) :: reltol
16180 type(GK41_type) , intent(in) :: qrule
16181 type(wcauchy_type) , intent(in) :: help
16182 real(RKC) , intent(out) :: integral, abserr
16183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16184 integer(IK) , intent(out) , contiguous :: sindex(:)
16185 integer(IK) , intent(out) :: neval
16186 integer(IK) , intent(out) :: nint
16187 integer(IK) :: err
16188 end function
16189#endif
16190
16191#if RK3_ENABLED
16192 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16194 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16195#endif
16196 use pm_kind, only: RKC => RK3
16197 procedure(real(RKC)) :: getFunc
16198 real(RKC) , intent(in) :: lb
16199 type(pinf_type) , intent(in) :: ub
16200 real(RKC) , intent(in) :: abstol
16201 real(RKC) , intent(in) :: reltol
16202 type(GK41_type) , intent(in) :: qrule
16203 type(wcauchy_type) , intent(in) :: help
16204 real(RKC) , intent(out) :: integral, abserr
16205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16206 integer(IK) , intent(out) , contiguous :: sindex(:)
16207 integer(IK) , intent(out) :: neval
16208 integer(IK) , intent(out) :: nint
16209 integer(IK) :: err
16210 end function
16211#endif
16212
16213#if RK2_ENABLED
16214 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16216 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16217#endif
16218 use pm_kind, only: RKC => RK2
16219 procedure(real(RKC)) :: getFunc
16220 real(RKC) , intent(in) :: lb
16221 type(pinf_type) , intent(in) :: ub
16222 real(RKC) , intent(in) :: abstol
16223 real(RKC) , intent(in) :: reltol
16224 type(GK41_type) , intent(in) :: qrule
16225 type(wcauchy_type) , intent(in) :: help
16226 real(RKC) , intent(out) :: integral, abserr
16227 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16228 integer(IK) , intent(out) , contiguous :: sindex(:)
16229 integer(IK) , intent(out) :: neval
16230 integer(IK) , intent(out) :: nint
16231 integer(IK) :: err
16232 end function
16233#endif
16234
16235#if RK1_ENABLED
16236 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16238 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16239#endif
16240 use pm_kind, only: RKC => RK1
16241 procedure(real(RKC)) :: getFunc
16242 real(RKC) , intent(in) :: lb
16243 type(pinf_type) , intent(in) :: ub
16244 real(RKC) , intent(in) :: abstol
16245 real(RKC) , intent(in) :: reltol
16246 type(GK41_type) , intent(in) :: qrule
16247 type(wcauchy_type) , intent(in) :: help
16248 real(RKC) , intent(out) :: integral, abserr
16249 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16250 integer(IK) , intent(out) , contiguous :: sindex(:)
16251 integer(IK) , intent(out) :: neval
16252 integer(IK) , intent(out) :: nint
16253 integer(IK) :: err
16254 end function
16255#endif
16256
16257 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16258
16259#if RK5_ENABLED
16260 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16262 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16263#endif
16264 use pm_kind, only: RKC => RK5
16265 procedure(real(RKC)) :: getFunc
16266 real(RKC) , intent(in) :: lb
16267 type(pinf_type) , intent(in) :: ub
16268 real(RKC) , intent(in) :: abstol
16269 real(RKC) , intent(in) :: reltol
16270 type(GK51_type) , intent(in) :: qrule
16271 type(wcauchy_type) , intent(in) :: help
16272 real(RKC) , intent(out) :: integral, abserr
16273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16274 integer(IK) , intent(out) , contiguous :: sindex(:)
16275 integer(IK) , intent(out) :: neval
16276 integer(IK) , intent(out) :: nint
16277 integer(IK) :: err
16278 end function
16279#endif
16280
16281#if RK4_ENABLED
16282 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16284 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16285#endif
16286 use pm_kind, only: RKC => RK4
16287 procedure(real(RKC)) :: getFunc
16288 real(RKC) , intent(in) :: lb
16289 type(pinf_type) , intent(in) :: ub
16290 real(RKC) , intent(in) :: abstol
16291 real(RKC) , intent(in) :: reltol
16292 type(GK51_type) , intent(in) :: qrule
16293 type(wcauchy_type) , intent(in) :: help
16294 real(RKC) , intent(out) :: integral, abserr
16295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16296 integer(IK) , intent(out) , contiguous :: sindex(:)
16297 integer(IK) , intent(out) :: neval
16298 integer(IK) , intent(out) :: nint
16299 integer(IK) :: err
16300 end function
16301#endif
16302
16303#if RK3_ENABLED
16304 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16306 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16307#endif
16308 use pm_kind, only: RKC => RK3
16309 procedure(real(RKC)) :: getFunc
16310 real(RKC) , intent(in) :: lb
16311 type(pinf_type) , intent(in) :: ub
16312 real(RKC) , intent(in) :: abstol
16313 real(RKC) , intent(in) :: reltol
16314 type(GK51_type) , intent(in) :: qrule
16315 type(wcauchy_type) , intent(in) :: help
16316 real(RKC) , intent(out) :: integral, abserr
16317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16318 integer(IK) , intent(out) , contiguous :: sindex(:)
16319 integer(IK) , intent(out) :: neval
16320 integer(IK) , intent(out) :: nint
16321 integer(IK) :: err
16322 end function
16323#endif
16324
16325#if RK2_ENABLED
16326 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16328 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16329#endif
16330 use pm_kind, only: RKC => RK2
16331 procedure(real(RKC)) :: getFunc
16332 real(RKC) , intent(in) :: lb
16333 type(pinf_type) , intent(in) :: ub
16334 real(RKC) , intent(in) :: abstol
16335 real(RKC) , intent(in) :: reltol
16336 type(GK51_type) , intent(in) :: qrule
16337 type(wcauchy_type) , intent(in) :: help
16338 real(RKC) , intent(out) :: integral, abserr
16339 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16340 integer(IK) , intent(out) , contiguous :: sindex(:)
16341 integer(IK) , intent(out) :: neval
16342 integer(IK) , intent(out) :: nint
16343 integer(IK) :: err
16344 end function
16345#endif
16346
16347#if RK1_ENABLED
16348 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16350 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16351#endif
16352 use pm_kind, only: RKC => RK1
16353 procedure(real(RKC)) :: getFunc
16354 real(RKC) , intent(in) :: lb
16355 type(pinf_type) , intent(in) :: ub
16356 real(RKC) , intent(in) :: abstol
16357 real(RKC) , intent(in) :: reltol
16358 type(GK51_type) , intent(in) :: qrule
16359 type(wcauchy_type) , intent(in) :: help
16360 real(RKC) , intent(out) :: integral, abserr
16361 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16362 integer(IK) , intent(out) , contiguous :: sindex(:)
16363 integer(IK) , intent(out) :: neval
16364 integer(IK) , intent(out) :: nint
16365 integer(IK) :: err
16366 end function
16367#endif
16368
16369 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16370
16371#if RK5_ENABLED
16372 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16375#endif
16376 use pm_kind, only: RKC => RK5
16377 procedure(real(RKC)) :: getFunc
16378 real(RKC) , intent(in) :: lb
16379 type(pinf_type) , intent(in) :: ub
16380 real(RKC) , intent(in) :: abstol
16381 real(RKC) , intent(in) :: reltol
16382 type(GK61_type) , intent(in) :: qrule
16383 type(wcauchy_type) , intent(in) :: help
16384 real(RKC) , intent(out) :: integral, abserr
16385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16386 integer(IK) , intent(out) , contiguous :: sindex(:)
16387 integer(IK) , intent(out) :: neval
16388 integer(IK) , intent(out) :: nint
16389 integer(IK) :: err
16390 end function
16391#endif
16392
16393#if RK4_ENABLED
16394 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16397#endif
16398 use pm_kind, only: RKC => RK4
16399 procedure(real(RKC)) :: getFunc
16400 real(RKC) , intent(in) :: lb
16401 type(pinf_type) , intent(in) :: ub
16402 real(RKC) , intent(in) :: abstol
16403 real(RKC) , intent(in) :: reltol
16404 type(GK61_type) , intent(in) :: qrule
16405 type(wcauchy_type) , intent(in) :: help
16406 real(RKC) , intent(out) :: integral, abserr
16407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16408 integer(IK) , intent(out) , contiguous :: sindex(:)
16409 integer(IK) , intent(out) :: neval
16410 integer(IK) , intent(out) :: nint
16411 integer(IK) :: err
16412 end function
16413#endif
16414
16415#if RK3_ENABLED
16416 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16419#endif
16420 use pm_kind, only: RKC => RK3
16421 procedure(real(RKC)) :: getFunc
16422 real(RKC) , intent(in) :: lb
16423 type(pinf_type) , intent(in) :: ub
16424 real(RKC) , intent(in) :: abstol
16425 real(RKC) , intent(in) :: reltol
16426 type(GK61_type) , intent(in) :: qrule
16427 type(wcauchy_type) , intent(in) :: help
16428 real(RKC) , intent(out) :: integral, abserr
16429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16430 integer(IK) , intent(out) , contiguous :: sindex(:)
16431 integer(IK) , intent(out) :: neval
16432 integer(IK) , intent(out) :: nint
16433 integer(IK) :: err
16434 end function
16435#endif
16436
16437#if RK2_ENABLED
16438 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16440 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16441#endif
16442 use pm_kind, only: RKC => RK2
16443 procedure(real(RKC)) :: getFunc
16444 real(RKC) , intent(in) :: lb
16445 type(pinf_type) , intent(in) :: ub
16446 real(RKC) , intent(in) :: abstol
16447 real(RKC) , intent(in) :: reltol
16448 type(GK61_type) , intent(in) :: qrule
16449 type(wcauchy_type) , intent(in) :: help
16450 real(RKC) , intent(out) :: integral, abserr
16451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16452 integer(IK) , intent(out) , contiguous :: sindex(:)
16453 integer(IK) , intent(out) :: neval
16454 integer(IK) , intent(out) :: nint
16455 integer(IK) :: err
16456 end function
16457#endif
16458
16459#if RK1_ENABLED
16460 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16462 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16463#endif
16464 use pm_kind, only: RKC => RK1
16465 procedure(real(RKC)) :: getFunc
16466 real(RKC) , intent(in) :: lb
16467 type(pinf_type) , intent(in) :: ub
16468 real(RKC) , intent(in) :: abstol
16469 real(RKC) , intent(in) :: reltol
16470 type(GK61_type) , intent(in) :: qrule
16471 type(wcauchy_type) , intent(in) :: help
16472 real(RKC) , intent(out) :: integral, abserr
16473 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16474 integer(IK) , intent(out) , contiguous :: sindex(:)
16475 integer(IK) , intent(out) :: neval
16476 integer(IK) , intent(out) :: nint
16477 integer(IK) :: err
16478 end function
16479#endif
16480
16481 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16482
16483#if RK5_ENABLED
16484 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16487#endif
16488 use pm_kind, only: RKC => RK5
16489 procedure(real(RKC)) :: getFunc
16490 real(RKC) , intent(in) :: lb
16491 type(pinf_type) , intent(in) :: ub
16492 real(RKC) , intent(in) :: abstol
16493 real(RKC) , intent(in) :: reltol
16494 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16495 type(wcauchy_type) , intent(in) :: help
16496 real(RKC) , intent(out) :: integral, abserr
16497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16498 integer(IK) , intent(out) , contiguous :: sindex(:)
16499 integer(IK) , intent(out) :: neval
16500 integer(IK) , intent(out) :: nint
16501 integer(IK) :: err
16502 end function
16503#endif
16504
16505#if RK4_ENABLED
16506 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16509#endif
16510 use pm_kind, only: RKC => RK4
16511 procedure(real(RKC)) :: getFunc
16512 real(RKC) , intent(in) :: lb
16513 type(pinf_type) , intent(in) :: ub
16514 real(RKC) , intent(in) :: abstol
16515 real(RKC) , intent(in) :: reltol
16516 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16517 type(wcauchy_type) , intent(in) :: help
16518 real(RKC) , intent(out) :: integral, abserr
16519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16520 integer(IK) , intent(out) , contiguous :: sindex(:)
16521 integer(IK) , intent(out) :: neval
16522 integer(IK) , intent(out) :: nint
16523 integer(IK) :: err
16524 end function
16525#endif
16526
16527#if RK3_ENABLED
16528 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16531#endif
16532 use pm_kind, only: RKC => RK3
16533 procedure(real(RKC)) :: getFunc
16534 real(RKC) , intent(in) :: lb
16535 type(pinf_type) , intent(in) :: ub
16536 real(RKC) , intent(in) :: abstol
16537 real(RKC) , intent(in) :: reltol
16538 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16539 type(wcauchy_type) , intent(in) :: help
16540 real(RKC) , intent(out) :: integral, abserr
16541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16542 integer(IK) , intent(out) , contiguous :: sindex(:)
16543 integer(IK) , intent(out) :: neval
16544 integer(IK) , intent(out) :: nint
16545 integer(IK) :: err
16546 end function
16547#endif
16548
16549#if RK2_ENABLED
16550 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16552 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16553#endif
16554 use pm_kind, only: RKC => RK2
16555 procedure(real(RKC)) :: getFunc
16556 real(RKC) , intent(in) :: lb
16557 type(pinf_type) , intent(in) :: ub
16558 real(RKC) , intent(in) :: abstol
16559 real(RKC) , intent(in) :: reltol
16560 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16561 type(wcauchy_type) , intent(in) :: help
16562 real(RKC) , intent(out) :: integral, abserr
16563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16564 integer(IK) , intent(out) , contiguous :: sindex(:)
16565 integer(IK) , intent(out) :: neval
16566 integer(IK) , intent(out) :: nint
16567 integer(IK) :: err
16568 end function
16569#endif
16570
16571#if RK1_ENABLED
16572 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16574 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16575#endif
16576 use pm_kind, only: RKC => RK1
16577 procedure(real(RKC)) :: getFunc
16578 real(RKC) , intent(in) :: lb
16579 type(pinf_type) , intent(in) :: ub
16580 real(RKC) , intent(in) :: abstol
16581 real(RKC) , intent(in) :: reltol
16582 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16583 type(wcauchy_type) , intent(in) :: help
16584 real(RKC) , intent(out) :: integral, abserr
16585 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16586 integer(IK) , intent(out) , contiguous :: sindex(:)
16587 integer(IK) , intent(out) :: neval
16588 integer(IK) , intent(out) :: nint
16589 integer(IK) :: err
16590 end function
16591#endif
16592
16593 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16594
16595 end interface
16596
16597 ! QAWC IF
16598
16599 interface getQuadErr
16600
16601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16602
16603#if RK5_ENABLED
16604 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16606 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16607#endif
16608 use pm_kind, only: RKC => RK5
16609 procedure(real(RKC)) :: getFunc
16610 type(ninf_type) , intent(in) :: lb
16611 real(RKC) , intent(in) :: ub
16612 real(RKC) , intent(in) :: abstol
16613 real(RKC) , intent(in) :: reltol
16614 type(GK15_type) , intent(in) :: qrule
16615 type(wcauchy_type) , intent(in) :: help
16616 real(RKC) , intent(out) :: integral, abserr
16617 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16618 integer(IK) , intent(out) , contiguous :: sindex(:)
16619 integer(IK) , intent(out) :: neval
16620 integer(IK) , intent(out) :: nint
16621 integer(IK) :: err
16622 end function
16623#endif
16624
16625#if RK4_ENABLED
16626 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16627#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16628 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16629#endif
16630 use pm_kind, only: RKC => RK4
16631 procedure(real(RKC)) :: getFunc
16632 type(ninf_type) , intent(in) :: lb
16633 real(RKC) , intent(in) :: ub
16634 real(RKC) , intent(in) :: abstol
16635 real(RKC) , intent(in) :: reltol
16636 type(GK15_type) , intent(in) :: qrule
16637 type(wcauchy_type) , intent(in) :: help
16638 real(RKC) , intent(out) :: integral, abserr
16639 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16640 integer(IK) , intent(out) , contiguous :: sindex(:)
16641 integer(IK) , intent(out) :: neval
16642 integer(IK) , intent(out) :: nint
16643 integer(IK) :: err
16644 end function
16645#endif
16646
16647#if RK3_ENABLED
16648 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16650 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16651#endif
16652 use pm_kind, only: RKC => RK3
16653 procedure(real(RKC)) :: getFunc
16654 type(ninf_type) , intent(in) :: lb
16655 real(RKC) , intent(in) :: ub
16656 real(RKC) , intent(in) :: abstol
16657 real(RKC) , intent(in) :: reltol
16658 type(GK15_type) , intent(in) :: qrule
16659 type(wcauchy_type) , intent(in) :: help
16660 real(RKC) , intent(out) :: integral, abserr
16661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16662 integer(IK) , intent(out) , contiguous :: sindex(:)
16663 integer(IK) , intent(out) :: neval
16664 integer(IK) , intent(out) :: nint
16665 integer(IK) :: err
16666 end function
16667#endif
16668
16669#if RK2_ENABLED
16670 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16672 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16673#endif
16674 use pm_kind, only: RKC => RK2
16675 procedure(real(RKC)) :: getFunc
16676 type(ninf_type) , intent(in) :: lb
16677 real(RKC) , intent(in) :: ub
16678 real(RKC) , intent(in) :: abstol
16679 real(RKC) , intent(in) :: reltol
16680 type(GK15_type) , intent(in) :: qrule
16681 type(wcauchy_type) , intent(in) :: help
16682 real(RKC) , intent(out) :: integral, abserr
16683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16684 integer(IK) , intent(out) , contiguous :: sindex(:)
16685 integer(IK) , intent(out) :: neval
16686 integer(IK) , intent(out) :: nint
16687 integer(IK) :: err
16688 end function
16689#endif
16690
16691#if RK1_ENABLED
16692 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16695#endif
16696 use pm_kind, only: RKC => RK1
16697 procedure(real(RKC)) :: getFunc
16698 type(ninf_type) , intent(in) :: lb
16699 real(RKC) , intent(in) :: ub
16700 real(RKC) , intent(in) :: abstol
16701 real(RKC) , intent(in) :: reltol
16702 type(GK15_type) , intent(in) :: qrule
16703 type(wcauchy_type) , intent(in) :: help
16704 real(RKC) , intent(out) :: integral, abserr
16705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16706 integer(IK) , intent(out) , contiguous :: sindex(:)
16707 integer(IK) , intent(out) :: neval
16708 integer(IK) , intent(out) :: nint
16709 integer(IK) :: err
16710 end function
16711#endif
16712
16713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16714
16715#if RK5_ENABLED
16716 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16719#endif
16720 use pm_kind, only: RKC => RK5
16721 procedure(real(RKC)) :: getFunc
16722 type(ninf_type) , intent(in) :: lb
16723 real(RKC) , intent(in) :: ub
16724 real(RKC) , intent(in) :: abstol
16725 real(RKC) , intent(in) :: reltol
16726 type(GK21_type) , intent(in) :: qrule
16727 type(wcauchy_type) , intent(in) :: help
16728 real(RKC) , intent(out) :: integral, abserr
16729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16730 integer(IK) , intent(out) , contiguous :: sindex(:)
16731 integer(IK) , intent(out) :: neval
16732 integer(IK) , intent(out) :: nint
16733 integer(IK) :: err
16734 end function
16735#endif
16736
16737#if RK4_ENABLED
16738 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16741#endif
16742 use pm_kind, only: RKC => RK4
16743 procedure(real(RKC)) :: getFunc
16744 type(ninf_type) , intent(in) :: lb
16745 real(RKC) , intent(in) :: ub
16746 real(RKC) , intent(in) :: abstol
16747 real(RKC) , intent(in) :: reltol
16748 type(GK21_type) , intent(in) :: qrule
16749 type(wcauchy_type) , intent(in) :: help
16750 real(RKC) , intent(out) :: integral, abserr
16751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16752 integer(IK) , intent(out) , contiguous :: sindex(:)
16753 integer(IK) , intent(out) :: neval
16754 integer(IK) , intent(out) :: nint
16755 integer(IK) :: err
16756 end function
16757#endif
16758
16759#if RK3_ENABLED
16760 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16763#endif
16764 use pm_kind, only: RKC => RK3
16765 procedure(real(RKC)) :: getFunc
16766 type(ninf_type) , intent(in) :: lb
16767 real(RKC) , intent(in) :: ub
16768 real(RKC) , intent(in) :: abstol
16769 real(RKC) , intent(in) :: reltol
16770 type(GK21_type) , intent(in) :: qrule
16771 type(wcauchy_type) , intent(in) :: help
16772 real(RKC) , intent(out) :: integral, abserr
16773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16774 integer(IK) , intent(out) , contiguous :: sindex(:)
16775 integer(IK) , intent(out) :: neval
16776 integer(IK) , intent(out) :: nint
16777 integer(IK) :: err
16778 end function
16779#endif
16780
16781#if RK2_ENABLED
16782 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16784 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16785#endif
16786 use pm_kind, only: RKC => RK2
16787 procedure(real(RKC)) :: getFunc
16788 type(ninf_type) , intent(in) :: lb
16789 real(RKC) , intent(in) :: ub
16790 real(RKC) , intent(in) :: abstol
16791 real(RKC) , intent(in) :: reltol
16792 type(GK21_type) , intent(in) :: qrule
16793 type(wcauchy_type) , intent(in) :: help
16794 real(RKC) , intent(out) :: integral, abserr
16795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16796 integer(IK) , intent(out) , contiguous :: sindex(:)
16797 integer(IK) , intent(out) :: neval
16798 integer(IK) , intent(out) :: nint
16799 integer(IK) :: err
16800 end function
16801#endif
16802
16803#if RK1_ENABLED
16804 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16806 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16807#endif
16808 use pm_kind, only: RKC => RK1
16809 procedure(real(RKC)) :: getFunc
16810 type(ninf_type) , intent(in) :: lb
16811 real(RKC) , intent(in) :: ub
16812 real(RKC) , intent(in) :: abstol
16813 real(RKC) , intent(in) :: reltol
16814 type(GK21_type) , intent(in) :: qrule
16815 type(wcauchy_type) , intent(in) :: help
16816 real(RKC) , intent(out) :: integral, abserr
16817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16818 integer(IK) , intent(out) , contiguous :: sindex(:)
16819 integer(IK) , intent(out) :: neval
16820 integer(IK) , intent(out) :: nint
16821 integer(IK) :: err
16822 end function
16823#endif
16824
16825 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16826
16827#if RK5_ENABLED
16828 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16831#endif
16832 use pm_kind, only: RKC => RK5
16833 procedure(real(RKC)) :: getFunc
16834 type(ninf_type) , intent(in) :: lb
16835 real(RKC) , intent(in) :: ub
16836 real(RKC) , intent(in) :: abstol
16837 real(RKC) , intent(in) :: reltol
16838 type(GK31_type) , intent(in) :: qrule
16839 type(wcauchy_type) , intent(in) :: help
16840 real(RKC) , intent(out) :: integral, abserr
16841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16842 integer(IK) , intent(out) , contiguous :: sindex(:)
16843 integer(IK) , intent(out) :: neval
16844 integer(IK) , intent(out) :: nint
16845 integer(IK) :: err
16846 end function
16847#endif
16848
16849#if RK4_ENABLED
16850 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16853#endif
16854 use pm_kind, only: RKC => RK4
16855 procedure(real(RKC)) :: getFunc
16856 type(ninf_type) , intent(in) :: lb
16857 real(RKC) , intent(in) :: ub
16858 real(RKC) , intent(in) :: abstol
16859 real(RKC) , intent(in) :: reltol
16860 type(GK31_type) , intent(in) :: qrule
16861 type(wcauchy_type) , intent(in) :: help
16862 real(RKC) , intent(out) :: integral, abserr
16863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16864 integer(IK) , intent(out) , contiguous :: sindex(:)
16865 integer(IK) , intent(out) :: neval
16866 integer(IK) , intent(out) :: nint
16867 integer(IK) :: err
16868 end function
16869#endif
16870
16871#if RK3_ENABLED
16872 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16874 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16875#endif
16876 use pm_kind, only: RKC => RK3
16877 procedure(real(RKC)) :: getFunc
16878 type(ninf_type) , intent(in) :: lb
16879 real(RKC) , intent(in) :: ub
16880 real(RKC) , intent(in) :: abstol
16881 real(RKC) , intent(in) :: reltol
16882 type(GK31_type) , intent(in) :: qrule
16883 type(wcauchy_type) , intent(in) :: help
16884 real(RKC) , intent(out) :: integral, abserr
16885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16886 integer(IK) , intent(out) , contiguous :: sindex(:)
16887 integer(IK) , intent(out) :: neval
16888 integer(IK) , intent(out) :: nint
16889 integer(IK) :: err
16890 end function
16891#endif
16892
16893#if RK2_ENABLED
16894 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16896 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16897#endif
16898 use pm_kind, only: RKC => RK2
16899 procedure(real(RKC)) :: getFunc
16900 type(ninf_type) , intent(in) :: lb
16901 real(RKC) , intent(in) :: ub
16902 real(RKC) , intent(in) :: abstol
16903 real(RKC) , intent(in) :: reltol
16904 type(GK31_type) , intent(in) :: qrule
16905 type(wcauchy_type) , intent(in) :: help
16906 real(RKC) , intent(out) :: integral, abserr
16907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16908 integer(IK) , intent(out) , contiguous :: sindex(:)
16909 integer(IK) , intent(out) :: neval
16910 integer(IK) , intent(out) :: nint
16911 integer(IK) :: err
16912 end function
16913#endif
16914
16915#if RK1_ENABLED
16916 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16918 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16919#endif
16920 use pm_kind, only: RKC => RK1
16921 procedure(real(RKC)) :: getFunc
16922 type(ninf_type) , intent(in) :: lb
16923 real(RKC) , intent(in) :: ub
16924 real(RKC) , intent(in) :: abstol
16925 real(RKC) , intent(in) :: reltol
16926 type(GK31_type) , intent(in) :: qrule
16927 type(wcauchy_type) , intent(in) :: help
16928 real(RKC) , intent(out) :: integral, abserr
16929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16930 integer(IK) , intent(out) , contiguous :: sindex(:)
16931 integer(IK) , intent(out) :: neval
16932 integer(IK) , intent(out) :: nint
16933 integer(IK) :: err
16934 end function
16935#endif
16936
16937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16938
16939#if RK5_ENABLED
16940 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16942 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
16943#endif
16944 use pm_kind, only: RKC => RK5
16945 procedure(real(RKC)) :: getFunc
16946 type(ninf_type) , intent(in) :: lb
16947 real(RKC) , intent(in) :: ub
16948 real(RKC) , intent(in) :: abstol
16949 real(RKC) , intent(in) :: reltol
16950 type(GK41_type) , intent(in) :: qrule
16951 type(wcauchy_type) , intent(in) :: help
16952 real(RKC) , intent(out) :: integral, abserr
16953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16954 integer(IK) , intent(out) , contiguous :: sindex(:)
16955 integer(IK) , intent(out) :: neval
16956 integer(IK) , intent(out) :: nint
16957 integer(IK) :: err
16958 end function
16959#endif
16960
16961#if RK4_ENABLED
16962 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16964 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
16965#endif
16966 use pm_kind, only: RKC => RK4
16967 procedure(real(RKC)) :: getFunc
16968 type(ninf_type) , intent(in) :: lb
16969 real(RKC) , intent(in) :: ub
16970 real(RKC) , intent(in) :: abstol
16971 real(RKC) , intent(in) :: reltol
16972 type(GK41_type) , intent(in) :: qrule
16973 type(wcauchy_type) , intent(in) :: help
16974 real(RKC) , intent(out) :: integral, abserr
16975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16976 integer(IK) , intent(out) , contiguous :: sindex(:)
16977 integer(IK) , intent(out) :: neval
16978 integer(IK) , intent(out) :: nint
16979 integer(IK) :: err
16980 end function
16981#endif
16982
16983#if RK3_ENABLED
16984 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
16987#endif
16988 use pm_kind, only: RKC => RK3
16989 procedure(real(RKC)) :: getFunc
16990 type(ninf_type) , intent(in) :: lb
16991 real(RKC) , intent(in) :: ub
16992 real(RKC) , intent(in) :: abstol
16993 real(RKC) , intent(in) :: reltol
16994 type(GK41_type) , intent(in) :: qrule
16995 type(wcauchy_type) , intent(in) :: help
16996 real(RKC) , intent(out) :: integral, abserr
16997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16998 integer(IK) , intent(out) , contiguous :: sindex(:)
16999 integer(IK) , intent(out) :: neval
17000 integer(IK) , intent(out) :: nint
17001 integer(IK) :: err
17002 end function
17003#endif
17004
17005#if RK2_ENABLED
17006 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17008 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17009#endif
17010 use pm_kind, only: RKC => RK2
17011 procedure(real(RKC)) :: getFunc
17012 type(ninf_type) , intent(in) :: lb
17013 real(RKC) , intent(in) :: ub
17014 real(RKC) , intent(in) :: abstol
17015 real(RKC) , intent(in) :: reltol
17016 type(GK41_type) , intent(in) :: qrule
17017 type(wcauchy_type) , intent(in) :: help
17018 real(RKC) , intent(out) :: integral, abserr
17019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17020 integer(IK) , intent(out) , contiguous :: sindex(:)
17021 integer(IK) , intent(out) :: neval
17022 integer(IK) , intent(out) :: nint
17023 integer(IK) :: err
17024 end function
17025#endif
17026
17027#if RK1_ENABLED
17028 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17030 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17031#endif
17032 use pm_kind, only: RKC => RK1
17033 procedure(real(RKC)) :: getFunc
17034 type(ninf_type) , intent(in) :: lb
17035 real(RKC) , intent(in) :: ub
17036 real(RKC) , intent(in) :: abstol
17037 real(RKC) , intent(in) :: reltol
17038 type(GK41_type) , intent(in) :: qrule
17039 type(wcauchy_type) , intent(in) :: help
17040 real(RKC) , intent(out) :: integral, abserr
17041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17042 integer(IK) , intent(out) , contiguous :: sindex(:)
17043 integer(IK) , intent(out) :: neval
17044 integer(IK) , intent(out) :: nint
17045 integer(IK) :: err
17046 end function
17047#endif
17048
17049 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17050
17051#if RK5_ENABLED
17052 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17055#endif
17056 use pm_kind, only: RKC => RK5
17057 procedure(real(RKC)) :: getFunc
17058 type(ninf_type) , intent(in) :: lb
17059 real(RKC) , intent(in) :: ub
17060 real(RKC) , intent(in) :: abstol
17061 real(RKC) , intent(in) :: reltol
17062 type(GK51_type) , intent(in) :: qrule
17063 type(wcauchy_type) , intent(in) :: help
17064 real(RKC) , intent(out) :: integral, abserr
17065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17066 integer(IK) , intent(out) , contiguous :: sindex(:)
17067 integer(IK) , intent(out) :: neval
17068 integer(IK) , intent(out) :: nint
17069 integer(IK) :: err
17070 end function
17071#endif
17072
17073#if RK4_ENABLED
17074 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17077#endif
17078 use pm_kind, only: RKC => RK4
17079 procedure(real(RKC)) :: getFunc
17080 type(ninf_type) , intent(in) :: lb
17081 real(RKC) , intent(in) :: ub
17082 real(RKC) , intent(in) :: abstol
17083 real(RKC) , intent(in) :: reltol
17084 type(GK51_type) , intent(in) :: qrule
17085 type(wcauchy_type) , intent(in) :: help
17086 real(RKC) , intent(out) :: integral, abserr
17087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17088 integer(IK) , intent(out) , contiguous :: sindex(:)
17089 integer(IK) , intent(out) :: neval
17090 integer(IK) , intent(out) :: nint
17091 integer(IK) :: err
17092 end function
17093#endif
17094
17095#if RK3_ENABLED
17096 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17098 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17099#endif
17100 use pm_kind, only: RKC => RK3
17101 procedure(real(RKC)) :: getFunc
17102 type(ninf_type) , intent(in) :: lb
17103 real(RKC) , intent(in) :: ub
17104 real(RKC) , intent(in) :: abstol
17105 real(RKC) , intent(in) :: reltol
17106 type(GK51_type) , intent(in) :: qrule
17107 type(wcauchy_type) , intent(in) :: help
17108 real(RKC) , intent(out) :: integral, abserr
17109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17110 integer(IK) , intent(out) , contiguous :: sindex(:)
17111 integer(IK) , intent(out) :: neval
17112 integer(IK) , intent(out) :: nint
17113 integer(IK) :: err
17114 end function
17115#endif
17116
17117#if RK2_ENABLED
17118 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17120 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17121#endif
17122 use pm_kind, only: RKC => RK2
17123 procedure(real(RKC)) :: getFunc
17124 type(ninf_type) , intent(in) :: lb
17125 real(RKC) , intent(in) :: ub
17126 real(RKC) , intent(in) :: abstol
17127 real(RKC) , intent(in) :: reltol
17128 type(GK51_type) , intent(in) :: qrule
17129 type(wcauchy_type) , intent(in) :: help
17130 real(RKC) , intent(out) :: integral, abserr
17131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17132 integer(IK) , intent(out) , contiguous :: sindex(:)
17133 integer(IK) , intent(out) :: neval
17134 integer(IK) , intent(out) :: nint
17135 integer(IK) :: err
17136 end function
17137#endif
17138
17139#if RK1_ENABLED
17140 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17142 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17143#endif
17144 use pm_kind, only: RKC => RK1
17145 procedure(real(RKC)) :: getFunc
17146 type(ninf_type) , intent(in) :: lb
17147 real(RKC) , intent(in) :: ub
17148 real(RKC) , intent(in) :: abstol
17149 real(RKC) , intent(in) :: reltol
17150 type(GK51_type) , intent(in) :: qrule
17151 type(wcauchy_type) , intent(in) :: help
17152 real(RKC) , intent(out) :: integral, abserr
17153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17154 integer(IK) , intent(out) , contiguous :: sindex(:)
17155 integer(IK) , intent(out) :: neval
17156 integer(IK) , intent(out) :: nint
17157 integer(IK) :: err
17158 end function
17159#endif
17160
17161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17162
17163#if RK5_ENABLED
17164 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17166 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17167#endif
17168 use pm_kind, only: RKC => RK5
17169 procedure(real(RKC)) :: getFunc
17170 type(ninf_type) , intent(in) :: lb
17171 real(RKC) , intent(in) :: ub
17172 real(RKC) , intent(in) :: abstol
17173 real(RKC) , intent(in) :: reltol
17174 type(GK61_type) , intent(in) :: qrule
17175 type(wcauchy_type) , intent(in) :: help
17176 real(RKC) , intent(out) :: integral, abserr
17177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17178 integer(IK) , intent(out) , contiguous :: sindex(:)
17179 integer(IK) , intent(out) :: neval
17180 integer(IK) , intent(out) :: nint
17181 integer(IK) :: err
17182 end function
17183#endif
17184
17185#if RK4_ENABLED
17186 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17188 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17189#endif
17190 use pm_kind, only: RKC => RK4
17191 procedure(real(RKC)) :: getFunc
17192 type(ninf_type) , intent(in) :: lb
17193 real(RKC) , intent(in) :: ub
17194 real(RKC) , intent(in) :: abstol
17195 real(RKC) , intent(in) :: reltol
17196 type(GK61_type) , intent(in) :: qrule
17197 type(wcauchy_type) , intent(in) :: help
17198 real(RKC) , intent(out) :: integral, abserr
17199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17200 integer(IK) , intent(out) , contiguous :: sindex(:)
17201 integer(IK) , intent(out) :: neval
17202 integer(IK) , intent(out) :: nint
17203 integer(IK) :: err
17204 end function
17205#endif
17206
17207#if RK3_ENABLED
17208 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17210 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17211#endif
17212 use pm_kind, only: RKC => RK3
17213 procedure(real(RKC)) :: getFunc
17214 type(ninf_type) , intent(in) :: lb
17215 real(RKC) , intent(in) :: ub
17216 real(RKC) , intent(in) :: abstol
17217 real(RKC) , intent(in) :: reltol
17218 type(GK61_type) , intent(in) :: qrule
17219 type(wcauchy_type) , intent(in) :: help
17220 real(RKC) , intent(out) :: integral, abserr
17221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17222 integer(IK) , intent(out) , contiguous :: sindex(:)
17223 integer(IK) , intent(out) :: neval
17224 integer(IK) , intent(out) :: nint
17225 integer(IK) :: err
17226 end function
17227#endif
17228
17229#if RK2_ENABLED
17230 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17232 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17233#endif
17234 use pm_kind, only: RKC => RK2
17235 procedure(real(RKC)) :: getFunc
17236 type(ninf_type) , intent(in) :: lb
17237 real(RKC) , intent(in) :: ub
17238 real(RKC) , intent(in) :: abstol
17239 real(RKC) , intent(in) :: reltol
17240 type(GK61_type) , intent(in) :: qrule
17241 type(wcauchy_type) , intent(in) :: help
17242 real(RKC) , intent(out) :: integral, abserr
17243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17244 integer(IK) , intent(out) , contiguous :: sindex(:)
17245 integer(IK) , intent(out) :: neval
17246 integer(IK) , intent(out) :: nint
17247 integer(IK) :: err
17248 end function
17249#endif
17250
17251#if RK1_ENABLED
17252 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17254 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17255#endif
17256 use pm_kind, only: RKC => RK1
17257 procedure(real(RKC)) :: getFunc
17258 type(ninf_type) , intent(in) :: lb
17259 real(RKC) , intent(in) :: ub
17260 real(RKC) , intent(in) :: abstol
17261 real(RKC) , intent(in) :: reltol
17262 type(GK61_type) , intent(in) :: qrule
17263 type(wcauchy_type) , intent(in) :: help
17264 real(RKC) , intent(out) :: integral, abserr
17265 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17266 integer(IK) , intent(out) , contiguous :: sindex(:)
17267 integer(IK) , intent(out) :: neval
17268 integer(IK) , intent(out) :: nint
17269 integer(IK) :: err
17270 end function
17271#endif
17272
17273 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17274
17275#if RK5_ENABLED
17276 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17279#endif
17280 use pm_kind, only: RKC => RK5
17281 procedure(real(RKC)) :: getFunc
17282 type(ninf_type) , intent(in) :: lb
17283 real(RKC) , intent(in) :: ub
17284 real(RKC) , intent(in) :: abstol
17285 real(RKC) , intent(in) :: reltol
17286 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17287 type(wcauchy_type) , intent(in) :: help
17288 real(RKC) , intent(out) :: integral, abserr
17289 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17290 integer(IK) , intent(out) , contiguous :: sindex(:)
17291 integer(IK) , intent(out) :: neval
17292 integer(IK) , intent(out) :: nint
17293 integer(IK) :: err
17294 end function
17295#endif
17296
17297#if RK4_ENABLED
17298 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17300 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17301#endif
17302 use pm_kind, only: RKC => RK4
17303 procedure(real(RKC)) :: getFunc
17304 type(ninf_type) , intent(in) :: lb
17305 real(RKC) , intent(in) :: ub
17306 real(RKC) , intent(in) :: abstol
17307 real(RKC) , intent(in) :: reltol
17308 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17309 type(wcauchy_type) , intent(in) :: help
17310 real(RKC) , intent(out) :: integral, abserr
17311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17312 integer(IK) , intent(out) , contiguous :: sindex(:)
17313 integer(IK) , intent(out) :: neval
17314 integer(IK) , intent(out) :: nint
17315 integer(IK) :: err
17316 end function
17317#endif
17318
17319#if RK3_ENABLED
17320 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17322 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17323#endif
17324 use pm_kind, only: RKC => RK3
17325 procedure(real(RKC)) :: getFunc
17326 type(ninf_type) , intent(in) :: lb
17327 real(RKC) , intent(in) :: ub
17328 real(RKC) , intent(in) :: abstol
17329 real(RKC) , intent(in) :: reltol
17330 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17331 type(wcauchy_type) , intent(in) :: help
17332 real(RKC) , intent(out) :: integral, abserr
17333 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17334 integer(IK) , intent(out) , contiguous :: sindex(:)
17335 integer(IK) , intent(out) :: neval
17336 integer(IK) , intent(out) :: nint
17337 integer(IK) :: err
17338 end function
17339#endif
17340
17341#if RK2_ENABLED
17342 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17344 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17345#endif
17346 use pm_kind, only: RKC => RK2
17347 procedure(real(RKC)) :: getFunc
17348 type(ninf_type) , intent(in) :: lb
17349 real(RKC) , intent(in) :: ub
17350 real(RKC) , intent(in) :: abstol
17351 real(RKC) , intent(in) :: reltol
17352 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17353 type(wcauchy_type) , intent(in) :: help
17354 real(RKC) , intent(out) :: integral, abserr
17355 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17356 integer(IK) , intent(out) , contiguous :: sindex(:)
17357 integer(IK) , intent(out) :: neval
17358 integer(IK) , intent(out) :: nint
17359 integer(IK) :: err
17360 end function
17361#endif
17362
17363#if RK1_ENABLED
17364 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17366 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17367#endif
17368 use pm_kind, only: RKC => RK1
17369 procedure(real(RKC)) :: getFunc
17370 type(ninf_type) , intent(in) :: lb
17371 real(RKC) , intent(in) :: ub
17372 real(RKC) , intent(in) :: abstol
17373 real(RKC) , intent(in) :: reltol
17374 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17375 type(wcauchy_type) , intent(in) :: help
17376 real(RKC) , intent(out) :: integral, abserr
17377 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17378 integer(IK) , intent(out) , contiguous :: sindex(:)
17379 integer(IK) , intent(out) :: neval
17380 integer(IK) , intent(out) :: nint
17381 integer(IK) :: err
17382 end function
17383#endif
17384
17385 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17386
17387 end interface
17388
17389 ! QAWC II
17390
17391 interface getQuadErr
17392
17393 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17394
17395#if RK5_ENABLED
17396 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17398 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17399#endif
17400 use pm_kind, only: RKC => RK5
17401 procedure(real(RKC)) :: getFunc
17402 type(ninf_type) , intent(in) :: lb
17403 type(pinf_type) , intent(in) :: ub
17404 real(RKC) , intent(in) :: abstol
17405 real(RKC) , intent(in) :: reltol
17406 type(GK15_type) , intent(in) :: qrule
17407 type(wcauchy_type) , intent(in) :: help
17408 real(RKC) , intent(out) :: integral, abserr
17409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17410 integer(IK) , intent(out) , contiguous :: sindex(:)
17411 integer(IK) , intent(out) :: neval
17412 integer(IK) , intent(out) :: nint
17413 integer(IK) :: err
17414 end function
17415#endif
17416
17417#if RK4_ENABLED
17418 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17420 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17421#endif
17422 use pm_kind, only: RKC => RK4
17423 procedure(real(RKC)) :: getFunc
17424 type(ninf_type) , intent(in) :: lb
17425 type(pinf_type) , intent(in) :: ub
17426 real(RKC) , intent(in) :: abstol
17427 real(RKC) , intent(in) :: reltol
17428 type(GK15_type) , intent(in) :: qrule
17429 type(wcauchy_type) , intent(in) :: help
17430 real(RKC) , intent(out) :: integral, abserr
17431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17432 integer(IK) , intent(out) , contiguous :: sindex(:)
17433 integer(IK) , intent(out) :: neval
17434 integer(IK) , intent(out) :: nint
17435 integer(IK) :: err
17436 end function
17437#endif
17438
17439#if RK3_ENABLED
17440 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17442 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17443#endif
17444 use pm_kind, only: RKC => RK3
17445 procedure(real(RKC)) :: getFunc
17446 type(ninf_type) , intent(in) :: lb
17447 type(pinf_type) , intent(in) :: ub
17448 real(RKC) , intent(in) :: abstol
17449 real(RKC) , intent(in) :: reltol
17450 type(GK15_type) , intent(in) :: qrule
17451 type(wcauchy_type) , intent(in) :: help
17452 real(RKC) , intent(out) :: integral, abserr
17453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17454 integer(IK) , intent(out) , contiguous :: sindex(:)
17455 integer(IK) , intent(out) :: neval
17456 integer(IK) , intent(out) :: nint
17457 integer(IK) :: err
17458 end function
17459#endif
17460
17461#if RK2_ENABLED
17462 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17464 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17465#endif
17466 use pm_kind, only: RKC => RK2
17467 procedure(real(RKC)) :: getFunc
17468 type(ninf_type) , intent(in) :: lb
17469 type(pinf_type) , intent(in) :: ub
17470 real(RKC) , intent(in) :: abstol
17471 real(RKC) , intent(in) :: reltol
17472 type(GK15_type) , intent(in) :: qrule
17473 type(wcauchy_type) , intent(in) :: help
17474 real(RKC) , intent(out) :: integral, abserr
17475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17476 integer(IK) , intent(out) , contiguous :: sindex(:)
17477 integer(IK) , intent(out) :: neval
17478 integer(IK) , intent(out) :: nint
17479 integer(IK) :: err
17480 end function
17481#endif
17482
17483#if RK1_ENABLED
17484 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17487#endif
17488 use pm_kind, only: RKC => RK1
17489 procedure(real(RKC)) :: getFunc
17490 type(ninf_type) , intent(in) :: lb
17491 type(pinf_type) , intent(in) :: ub
17492 real(RKC) , intent(in) :: abstol
17493 real(RKC) , intent(in) :: reltol
17494 type(GK15_type) , intent(in) :: qrule
17495 type(wcauchy_type) , intent(in) :: help
17496 real(RKC) , intent(out) :: integral, abserr
17497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17498 integer(IK) , intent(out) , contiguous :: sindex(:)
17499 integer(IK) , intent(out) :: neval
17500 integer(IK) , intent(out) :: nint
17501 integer(IK) :: err
17502 end function
17503#endif
17504
17505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17506
17507#if RK5_ENABLED
17508 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17511#endif
17512 use pm_kind, only: RKC => RK5
17513 procedure(real(RKC)) :: getFunc
17514 type(ninf_type) , intent(in) :: lb
17515 type(pinf_type) , intent(in) :: ub
17516 real(RKC) , intent(in) :: abstol
17517 real(RKC) , intent(in) :: reltol
17518 type(GK21_type) , intent(in) :: qrule
17519 type(wcauchy_type) , intent(in) :: help
17520 real(RKC) , intent(out) :: integral, abserr
17521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17522 integer(IK) , intent(out) , contiguous :: sindex(:)
17523 integer(IK) , intent(out) :: neval
17524 integer(IK) , intent(out) :: nint
17525 integer(IK) :: err
17526 end function
17527#endif
17528
17529#if RK4_ENABLED
17530 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17533#endif
17534 use pm_kind, only: RKC => RK4
17535 procedure(real(RKC)) :: getFunc
17536 type(ninf_type) , intent(in) :: lb
17537 type(pinf_type) , intent(in) :: ub
17538 real(RKC) , intent(in) :: abstol
17539 real(RKC) , intent(in) :: reltol
17540 type(GK21_type) , intent(in) :: qrule
17541 type(wcauchy_type) , intent(in) :: help
17542 real(RKC) , intent(out) :: integral, abserr
17543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17544 integer(IK) , intent(out) , contiguous :: sindex(:)
17545 integer(IK) , intent(out) :: neval
17546 integer(IK) , intent(out) :: nint
17547 integer(IK) :: err
17548 end function
17549#endif
17550
17551#if RK3_ENABLED
17552 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17555#endif
17556 use pm_kind, only: RKC => RK3
17557 procedure(real(RKC)) :: getFunc
17558 type(ninf_type) , intent(in) :: lb
17559 type(pinf_type) , intent(in) :: ub
17560 real(RKC) , intent(in) :: abstol
17561 real(RKC) , intent(in) :: reltol
17562 type(GK21_type) , intent(in) :: qrule
17563 type(wcauchy_type) , intent(in) :: help
17564 real(RKC) , intent(out) :: integral, abserr
17565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17566 integer(IK) , intent(out) , contiguous :: sindex(:)
17567 integer(IK) , intent(out) :: neval
17568 integer(IK) , intent(out) :: nint
17569 integer(IK) :: err
17570 end function
17571#endif
17572
17573#if RK2_ENABLED
17574 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17576 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17577#endif
17578 use pm_kind, only: RKC => RK2
17579 procedure(real(RKC)) :: getFunc
17580 type(ninf_type) , intent(in) :: lb
17581 type(pinf_type) , intent(in) :: ub
17582 real(RKC) , intent(in) :: abstol
17583 real(RKC) , intent(in) :: reltol
17584 type(GK21_type) , intent(in) :: qrule
17585 type(wcauchy_type) , intent(in) :: help
17586 real(RKC) , intent(out) :: integral, abserr
17587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17588 integer(IK) , intent(out) , contiguous :: sindex(:)
17589 integer(IK) , intent(out) :: neval
17590 integer(IK) , intent(out) :: nint
17591 integer(IK) :: err
17592 end function
17593#endif
17594
17595#if RK1_ENABLED
17596 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17598 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17599#endif
17600 use pm_kind, only: RKC => RK1
17601 procedure(real(RKC)) :: getFunc
17602 type(ninf_type) , intent(in) :: lb
17603 type(pinf_type) , intent(in) :: ub
17604 real(RKC) , intent(in) :: abstol
17605 real(RKC) , intent(in) :: reltol
17606 type(GK21_type) , intent(in) :: qrule
17607 type(wcauchy_type) , intent(in) :: help
17608 real(RKC) , intent(out) :: integral, abserr
17609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17610 integer(IK) , intent(out) , contiguous :: sindex(:)
17611 integer(IK) , intent(out) :: neval
17612 integer(IK) , intent(out) :: nint
17613 integer(IK) :: err
17614 end function
17615#endif
17616
17617 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17618
17619#if RK5_ENABLED
17620 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17623#endif
17624 use pm_kind, only: RKC => RK5
17625 procedure(real(RKC)) :: getFunc
17626 type(ninf_type) , intent(in) :: lb
17627 type(pinf_type) , intent(in) :: ub
17628 real(RKC) , intent(in) :: abstol
17629 real(RKC) , intent(in) :: reltol
17630 type(GK31_type) , intent(in) :: qrule
17631 type(wcauchy_type) , intent(in) :: help
17632 real(RKC) , intent(out) :: integral, abserr
17633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17634 integer(IK) , intent(out) , contiguous :: sindex(:)
17635 integer(IK) , intent(out) :: neval
17636 integer(IK) , intent(out) :: nint
17637 integer(IK) :: err
17638 end function
17639#endif
17640
17641#if RK4_ENABLED
17642 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17645#endif
17646 use pm_kind, only: RKC => RK4
17647 procedure(real(RKC)) :: getFunc
17648 type(ninf_type) , intent(in) :: lb
17649 type(pinf_type) , intent(in) :: ub
17650 real(RKC) , intent(in) :: abstol
17651 real(RKC) , intent(in) :: reltol
17652 type(GK31_type) , intent(in) :: qrule
17653 type(wcauchy_type) , intent(in) :: help
17654 real(RKC) , intent(out) :: integral, abserr
17655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17656 integer(IK) , intent(out) , contiguous :: sindex(:)
17657 integer(IK) , intent(out) :: neval
17658 integer(IK) , intent(out) :: nint
17659 integer(IK) :: err
17660 end function
17661#endif
17662
17663#if RK3_ENABLED
17664 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17666 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17667#endif
17668 use pm_kind, only: RKC => RK3
17669 procedure(real(RKC)) :: getFunc
17670 type(ninf_type) , intent(in) :: lb
17671 type(pinf_type) , intent(in) :: ub
17672 real(RKC) , intent(in) :: abstol
17673 real(RKC) , intent(in) :: reltol
17674 type(GK31_type) , intent(in) :: qrule
17675 type(wcauchy_type) , intent(in) :: help
17676 real(RKC) , intent(out) :: integral, abserr
17677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17678 integer(IK) , intent(out) , contiguous :: sindex(:)
17679 integer(IK) , intent(out) :: neval
17680 integer(IK) , intent(out) :: nint
17681 integer(IK) :: err
17682 end function
17683#endif
17684
17685#if RK2_ENABLED
17686 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17688 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17689#endif
17690 use pm_kind, only: RKC => RK2
17691 procedure(real(RKC)) :: getFunc
17692 type(ninf_type) , intent(in) :: lb
17693 type(pinf_type) , intent(in) :: ub
17694 real(RKC) , intent(in) :: abstol
17695 real(RKC) , intent(in) :: reltol
17696 type(GK31_type) , intent(in) :: qrule
17697 type(wcauchy_type) , intent(in) :: help
17698 real(RKC) , intent(out) :: integral, abserr
17699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17700 integer(IK) , intent(out) , contiguous :: sindex(:)
17701 integer(IK) , intent(out) :: neval
17702 integer(IK) , intent(out) :: nint
17703 integer(IK) :: err
17704 end function
17705#endif
17706
17707#if RK1_ENABLED
17708 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17710 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17711#endif
17712 use pm_kind, only: RKC => RK1
17713 procedure(real(RKC)) :: getFunc
17714 type(ninf_type) , intent(in) :: lb
17715 type(pinf_type) , intent(in) :: ub
17716 real(RKC) , intent(in) :: abstol
17717 real(RKC) , intent(in) :: reltol
17718 type(GK31_type) , intent(in) :: qrule
17719 type(wcauchy_type) , intent(in) :: help
17720 real(RKC) , intent(out) :: integral, abserr
17721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17722 integer(IK) , intent(out) , contiguous :: sindex(:)
17723 integer(IK) , intent(out) :: neval
17724 integer(IK) , intent(out) :: nint
17725 integer(IK) :: err
17726 end function
17727#endif
17728
17729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17730
17731#if RK5_ENABLED
17732 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17734 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17735#endif
17736 use pm_kind, only: RKC => RK5
17737 procedure(real(RKC)) :: getFunc
17738 type(ninf_type) , intent(in) :: lb
17739 type(pinf_type) , intent(in) :: ub
17740 real(RKC) , intent(in) :: abstol
17741 real(RKC) , intent(in) :: reltol
17742 type(GK41_type) , intent(in) :: qrule
17743 type(wcauchy_type) , intent(in) :: help
17744 real(RKC) , intent(out) :: integral, abserr
17745 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17746 integer(IK) , intent(out) , contiguous :: sindex(:)
17747 integer(IK) , intent(out) :: neval
17748 integer(IK) , intent(out) :: nint
17749 integer(IK) :: err
17750 end function
17751#endif
17752
17753#if RK4_ENABLED
17754 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17756 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17757#endif
17758 use pm_kind, only: RKC => RK4
17759 procedure(real(RKC)) :: getFunc
17760 type(ninf_type) , intent(in) :: lb
17761 type(pinf_type) , intent(in) :: ub
17762 real(RKC) , intent(in) :: abstol
17763 real(RKC) , intent(in) :: reltol
17764 type(GK41_type) , intent(in) :: qrule
17765 type(wcauchy_type) , intent(in) :: help
17766 real(RKC) , intent(out) :: integral, abserr
17767 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17768 integer(IK) , intent(out) , contiguous :: sindex(:)
17769 integer(IK) , intent(out) :: neval
17770 integer(IK) , intent(out) :: nint
17771 integer(IK) :: err
17772 end function
17773#endif
17774
17775#if RK3_ENABLED
17776 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17779#endif
17780 use pm_kind, only: RKC => RK3
17781 procedure(real(RKC)) :: getFunc
17782 type(ninf_type) , intent(in) :: lb
17783 type(pinf_type) , intent(in) :: ub
17784 real(RKC) , intent(in) :: abstol
17785 real(RKC) , intent(in) :: reltol
17786 type(GK41_type) , intent(in) :: qrule
17787 type(wcauchy_type) , intent(in) :: help
17788 real(RKC) , intent(out) :: integral, abserr
17789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17790 integer(IK) , intent(out) , contiguous :: sindex(:)
17791 integer(IK) , intent(out) :: neval
17792 integer(IK) , intent(out) :: nint
17793 integer(IK) :: err
17794 end function
17795#endif
17796
17797#if RK2_ENABLED
17798 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17800 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17801#endif
17802 use pm_kind, only: RKC => RK2
17803 procedure(real(RKC)) :: getFunc
17804 type(ninf_type) , intent(in) :: lb
17805 type(pinf_type) , intent(in) :: ub
17806 real(RKC) , intent(in) :: abstol
17807 real(RKC) , intent(in) :: reltol
17808 type(GK41_type) , intent(in) :: qrule
17809 type(wcauchy_type) , intent(in) :: help
17810 real(RKC) , intent(out) :: integral, abserr
17811 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17812 integer(IK) , intent(out) , contiguous :: sindex(:)
17813 integer(IK) , intent(out) :: neval
17814 integer(IK) , intent(out) :: nint
17815 integer(IK) :: err
17816 end function
17817#endif
17818
17819#if RK1_ENABLED
17820 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17821#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17822 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17823#endif
17824 use pm_kind, only: RKC => RK1
17825 procedure(real(RKC)) :: getFunc
17826 type(ninf_type) , intent(in) :: lb
17827 type(pinf_type) , intent(in) :: ub
17828 real(RKC) , intent(in) :: abstol
17829 real(RKC) , intent(in) :: reltol
17830 type(GK41_type) , intent(in) :: qrule
17831 type(wcauchy_type) , intent(in) :: help
17832 real(RKC) , intent(out) :: integral, abserr
17833 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17834 integer(IK) , intent(out) , contiguous :: sindex(:)
17835 integer(IK) , intent(out) :: neval
17836 integer(IK) , intent(out) :: nint
17837 integer(IK) :: err
17838 end function
17839#endif
17840
17841 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17842
17843#if RK5_ENABLED
17844 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17847#endif
17848 use pm_kind, only: RKC => RK5
17849 procedure(real(RKC)) :: getFunc
17850 type(ninf_type) , intent(in) :: lb
17851 type(pinf_type) , intent(in) :: ub
17852 real(RKC) , intent(in) :: abstol
17853 real(RKC) , intent(in) :: reltol
17854 type(GK51_type) , intent(in) :: qrule
17855 type(wcauchy_type) , intent(in) :: help
17856 real(RKC) , intent(out) :: integral, abserr
17857 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17858 integer(IK) , intent(out) , contiguous :: sindex(:)
17859 integer(IK) , intent(out) :: neval
17860 integer(IK) , intent(out) :: nint
17861 integer(IK) :: err
17862 end function
17863#endif
17864
17865#if RK4_ENABLED
17866 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17869#endif
17870 use pm_kind, only: RKC => RK4
17871 procedure(real(RKC)) :: getFunc
17872 type(ninf_type) , intent(in) :: lb
17873 type(pinf_type) , intent(in) :: ub
17874 real(RKC) , intent(in) :: abstol
17875 real(RKC) , intent(in) :: reltol
17876 type(GK51_type) , intent(in) :: qrule
17877 type(wcauchy_type) , intent(in) :: help
17878 real(RKC) , intent(out) :: integral, abserr
17879 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17880 integer(IK) , intent(out) , contiguous :: sindex(:)
17881 integer(IK) , intent(out) :: neval
17882 integer(IK) , intent(out) :: nint
17883 integer(IK) :: err
17884 end function
17885#endif
17886
17887#if RK3_ENABLED
17888 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17890 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17891#endif
17892 use pm_kind, only: RKC => RK3
17893 procedure(real(RKC)) :: getFunc
17894 type(ninf_type) , intent(in) :: lb
17895 type(pinf_type) , intent(in) :: ub
17896 real(RKC) , intent(in) :: abstol
17897 real(RKC) , intent(in) :: reltol
17898 type(GK51_type) , intent(in) :: qrule
17899 type(wcauchy_type) , intent(in) :: help
17900 real(RKC) , intent(out) :: integral, abserr
17901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17902 integer(IK) , intent(out) , contiguous :: sindex(:)
17903 integer(IK) , intent(out) :: neval
17904 integer(IK) , intent(out) :: nint
17905 integer(IK) :: err
17906 end function
17907#endif
17908
17909#if RK2_ENABLED
17910 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17912 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17913#endif
17914 use pm_kind, only: RKC => RK2
17915 procedure(real(RKC)) :: getFunc
17916 type(ninf_type) , intent(in) :: lb
17917 type(pinf_type) , intent(in) :: ub
17918 real(RKC) , intent(in) :: abstol
17919 real(RKC) , intent(in) :: reltol
17920 type(GK51_type) , intent(in) :: qrule
17921 type(wcauchy_type) , intent(in) :: help
17922 real(RKC) , intent(out) :: integral, abserr
17923 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17924 integer(IK) , intent(out) , contiguous :: sindex(:)
17925 integer(IK) , intent(out) :: neval
17926 integer(IK) , intent(out) :: nint
17927 integer(IK) :: err
17928 end function
17929#endif
17930
17931#if RK1_ENABLED
17932 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17934 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
17935#endif
17936 use pm_kind, only: RKC => RK1
17937 procedure(real(RKC)) :: getFunc
17938 type(ninf_type) , intent(in) :: lb
17939 type(pinf_type) , intent(in) :: ub
17940 real(RKC) , intent(in) :: abstol
17941 real(RKC) , intent(in) :: reltol
17942 type(GK51_type) , intent(in) :: qrule
17943 type(wcauchy_type) , intent(in) :: help
17944 real(RKC) , intent(out) :: integral, abserr
17945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17946 integer(IK) , intent(out) , contiguous :: sindex(:)
17947 integer(IK) , intent(out) :: neval
17948 integer(IK) , intent(out) :: nint
17949 integer(IK) :: err
17950 end function
17951#endif
17952
17953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17954
17955#if RK5_ENABLED
17956 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
17959#endif
17960 use pm_kind, only: RKC => RK5
17961 procedure(real(RKC)) :: getFunc
17962 type(ninf_type) , intent(in) :: lb
17963 type(pinf_type) , intent(in) :: ub
17964 real(RKC) , intent(in) :: abstol
17965 real(RKC) , intent(in) :: reltol
17966 type(GK61_type) , intent(in) :: qrule
17967 type(wcauchy_type) , intent(in) :: help
17968 real(RKC) , intent(out) :: integral, abserr
17969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17970 integer(IK) , intent(out) , contiguous :: sindex(:)
17971 integer(IK) , intent(out) :: neval
17972 integer(IK) , intent(out) :: nint
17973 integer(IK) :: err
17974 end function
17975#endif
17976
17977#if RK4_ENABLED
17978 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17980 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
17981#endif
17982 use pm_kind, only: RKC => RK4
17983 procedure(real(RKC)) :: getFunc
17984 type(ninf_type) , intent(in) :: lb
17985 type(pinf_type) , intent(in) :: ub
17986 real(RKC) , intent(in) :: abstol
17987 real(RKC) , intent(in) :: reltol
17988 type(GK61_type) , intent(in) :: qrule
17989 type(wcauchy_type) , intent(in) :: help
17990 real(RKC) , intent(out) :: integral, abserr
17991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17992 integer(IK) , intent(out) , contiguous :: sindex(:)
17993 integer(IK) , intent(out) :: neval
17994 integer(IK) , intent(out) :: nint
17995 integer(IK) :: err
17996 end function
17997#endif
17998
17999#if RK3_ENABLED
18000 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18003#endif
18004 use pm_kind, only: RKC => RK3
18005 procedure(real(RKC)) :: getFunc
18006 type(ninf_type) , intent(in) :: lb
18007 type(pinf_type) , intent(in) :: ub
18008 real(RKC) , intent(in) :: abstol
18009 real(RKC) , intent(in) :: reltol
18010 type(GK61_type) , intent(in) :: qrule
18011 type(wcauchy_type) , intent(in) :: help
18012 real(RKC) , intent(out) :: integral, abserr
18013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18014 integer(IK) , intent(out) , contiguous :: sindex(:)
18015 integer(IK) , intent(out) :: neval
18016 integer(IK) , intent(out) :: nint
18017 integer(IK) :: err
18018 end function
18019#endif
18020
18021#if RK2_ENABLED
18022 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18023#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18024 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18025#endif
18026 use pm_kind, only: RKC => RK2
18027 procedure(real(RKC)) :: getFunc
18028 type(ninf_type) , intent(in) :: lb
18029 type(pinf_type) , intent(in) :: ub
18030 real(RKC) , intent(in) :: abstol
18031 real(RKC) , intent(in) :: reltol
18032 type(GK61_type) , intent(in) :: qrule
18033 type(wcauchy_type) , intent(in) :: help
18034 real(RKC) , intent(out) :: integral, abserr
18035 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18036 integer(IK) , intent(out) , contiguous :: sindex(:)
18037 integer(IK) , intent(out) :: neval
18038 integer(IK) , intent(out) :: nint
18039 integer(IK) :: err
18040 end function
18041#endif
18042
18043#if RK1_ENABLED
18044 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18046 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18047#endif
18048 use pm_kind, only: RKC => RK1
18049 procedure(real(RKC)) :: getFunc
18050 type(ninf_type) , intent(in) :: lb
18051 type(pinf_type) , intent(in) :: ub
18052 real(RKC) , intent(in) :: abstol
18053 real(RKC) , intent(in) :: reltol
18054 type(GK61_type) , intent(in) :: qrule
18055 type(wcauchy_type) , intent(in) :: help
18056 real(RKC) , intent(out) :: integral, abserr
18057 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18058 integer(IK) , intent(out) , contiguous :: sindex(:)
18059 integer(IK) , intent(out) :: neval
18060 integer(IK) , intent(out) :: nint
18061 integer(IK) :: err
18062 end function
18063#endif
18064
18065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18066
18067#if RK5_ENABLED
18068 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18071#endif
18072 use pm_kind, only: RKC => RK5
18073 procedure(real(RKC)) :: getFunc
18074 type(ninf_type) , intent(in) :: lb
18075 type(pinf_type) , intent(in) :: ub
18076 real(RKC) , intent(in) :: abstol
18077 real(RKC) , intent(in) :: reltol
18078 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18079 type(wcauchy_type) , intent(in) :: help
18080 real(RKC) , intent(out) :: integral, abserr
18081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18082 integer(IK) , intent(out) , contiguous :: sindex(:)
18083 integer(IK) , intent(out) :: neval
18084 integer(IK) , intent(out) :: nint
18085 integer(IK) :: err
18086 end function
18087#endif
18088
18089#if RK4_ENABLED
18090 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18093#endif
18094 use pm_kind, only: RKC => RK4
18095 procedure(real(RKC)) :: getFunc
18096 type(ninf_type) , intent(in) :: lb
18097 type(pinf_type) , intent(in) :: ub
18098 real(RKC) , intent(in) :: abstol
18099 real(RKC) , intent(in) :: reltol
18100 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18101 type(wcauchy_type) , intent(in) :: help
18102 real(RKC) , intent(out) :: integral, abserr
18103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18104 integer(IK) , intent(out) , contiguous :: sindex(:)
18105 integer(IK) , intent(out) :: neval
18106 integer(IK) , intent(out) :: nint
18107 integer(IK) :: err
18108 end function
18109#endif
18110
18111#if RK3_ENABLED
18112 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18115#endif
18116 use pm_kind, only: RKC => RK3
18117 procedure(real(RKC)) :: getFunc
18118 type(ninf_type) , intent(in) :: lb
18119 type(pinf_type) , intent(in) :: ub
18120 real(RKC) , intent(in) :: abstol
18121 real(RKC) , intent(in) :: reltol
18122 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18123 type(wcauchy_type) , intent(in) :: help
18124 real(RKC) , intent(out) :: integral, abserr
18125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18126 integer(IK) , intent(out) , contiguous :: sindex(:)
18127 integer(IK) , intent(out) :: neval
18128 integer(IK) , intent(out) :: nint
18129 integer(IK) :: err
18130 end function
18131#endif
18132
18133#if RK2_ENABLED
18134 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18136 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18137#endif
18138 use pm_kind, only: RKC => RK2
18139 procedure(real(RKC)) :: getFunc
18140 type(ninf_type) , intent(in) :: lb
18141 type(pinf_type) , intent(in) :: ub
18142 real(RKC) , intent(in) :: abstol
18143 real(RKC) , intent(in) :: reltol
18144 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18145 type(wcauchy_type) , intent(in) :: help
18146 real(RKC) , intent(out) :: integral, abserr
18147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18148 integer(IK) , intent(out) , contiguous :: sindex(:)
18149 integer(IK) , intent(out) :: neval
18150 integer(IK) , intent(out) :: nint
18151 integer(IK) :: err
18152 end function
18153#endif
18154
18155#if RK1_ENABLED
18156 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18158 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18159#endif
18160 use pm_kind, only: RKC => RK1
18161 procedure(real(RKC)) :: getFunc
18162 type(ninf_type) , intent(in) :: lb
18163 type(pinf_type) , intent(in) :: ub
18164 real(RKC) , intent(in) :: abstol
18165 real(RKC) , intent(in) :: reltol
18166 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18167 type(wcauchy_type) , intent(in) :: help
18168 real(RKC) , intent(out) :: integral, abserr
18169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18170 integer(IK) , intent(out) , contiguous :: sindex(:)
18171 integer(IK) , intent(out) :: neval
18172 integer(IK) , intent(out) :: nint
18173 integer(IK) :: err
18174 end function
18175#endif
18176
18177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18178
18179 end interface
18180
18181!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18182
18183end module pm_quadPack
pm_quadPack::getQuadErr
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:5573
pm_quadPack::getQuadGK
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Definition: pm_quadPack.F90:2205
pm_quadPack::isFailedQuad
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Definition: pm_quadPack.F90:4921
pm_quadPack::setChebExpan
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Definition: pm_quadPack.F90:4770
pm_quadPack::setErrSorted
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Definition: pm_quadPack.F90:4644
pm_quadPack::setNodeWeightGK
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Definition: pm_quadPack.F90:1969
pm_quadPack::setSeqLimEps
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
Definition: pm_quadPack.F90:4531
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:228
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:237
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:255
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:246
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
pm_kind::RKB
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:596
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:264
pm_mathConst
This module contains relevant mathematical constants.
Definition: pm_mathConst.F90:36
pm_mathConst::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_mathConst.F90:42
pm_mathConst::ninf
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
Definition: pm_mathConst.F90:423
pm_mathConst::pinf
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
Definition: pm_mathConst.F90:467
pm_quadPack
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
Definition: pm_quadPack.F90:141
pm_quadPack::weightG30
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1781
pm_quadPack::nodeG25
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1506
pm_quadPack::weightK41
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1387
pm_quadPack::weightK31
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1169
pm_quadPack::nodeK41
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1345
pm_quadPack::nodeG15
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1074
pm_quadPack::nodeG30
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1745
pm_quadPack::nodeK15
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:748
pm_quadPack::weightK21
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:967
pm_quadPack::nodeK61
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1818
pm_quadPack::nodeK31
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1132
pm_quadPack::nodeG7
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:698
pm_quadPack::GK31
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1053
pm_quadPack::weightG10
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:909
pm_quadPack::weightG25
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1540
pm_quadPack::GK51
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1484
pm_quadPack::nodeK21
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:935
pm_quadPack::weightK15
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:777
pm_quadPack::weightG7
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:723
pm_quadPack::weps
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
Definition: pm_quadPack.F90:4486
pm_quadPack::weightK51
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1621
pm_quadPack::weightG20
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1314
pm_quadPack::nodeK51
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1574
pm_quadPack::GK61
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1723
pm_quadPack::GK21
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:861
pm_quadPack::nodeG10
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:883
pm_quadPack::weightK61
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1870
pm_quadPack::weightG15
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
Definition: pm_quadPack.F90:1103
pm_quadPack::GK15
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
Definition: pm_quadPack.F90:676
pm_quadPack::nodeG20
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
Definition: pm_quadPack.F90:1283
pm_quadPack::GK41
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
Definition: pm_quadPack.F90:1261
pm_mathConst::ninf_type
This is the indicator type for generating instances of objects that indicate the use of the negative ...
Definition: pm_mathConst.F90:406
pm_mathConst::pinf_type
This is the indicator type for generating instances of objects that indicate the use of the positive ...
Definition: pm_mathConst.F90:450
pm_quadPack::GK15_type
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
Definition: pm_quadPack.F90:646
pm_quadPack::GK21_type
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
Definition: pm_quadPack.F90:830
pm_quadPack::GK31_type
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
Definition: pm_quadPack.F90:1022
pm_quadPack::GK41_type
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
Definition: pm_quadPack.F90:1230
pm_quadPack::GK51_type
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
Definition: pm_quadPack.F90:1453
pm_quadPack::GK61_type
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
Definition: pm_quadPack.F90:1692
pm_quadPack::wcauchy_type
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
Definition: pm_quadPack.F90:193
pm_quadPack::wcos_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:497
pm_quadPack::weps_type
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
Definition: pm_quadPack.F90:4465
pm_quadPack::wsin_type
This is the derived type for constructing objects that signify the computation of the integral an arb...
Definition: pm_quadPack.F90:345